Telnet.pm and Unix prompt

[Vidal, Christopher, SOLCM]

Using the Telnet.pm mod,  How do I put my unix prompt into the PROMPT scalar ?



My unix profile prompt is :

uid=`whoami`
system=`hostname`
PS1=$system" "$uid" "\\!:" "


#! /opt/perl5/bin/perl
require '/tools/mns/bin/Telnet.pm';
#
$username = "wannabperlguy" ;
$passwd = "needslotsahelp";
    $t = new Net::Telnet (Timeout => 10,
                          Prompt => '`hostname`" "`whoami`);
    $t->open("1.2.3.4");
    $t->login($username, $passwd);
    @lines = $t->cmd("/usr/bin/who");
    print @lines;

Thanks a lot and
Best Regards,
Christopher Vidal

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]