Hello everyone,
I have gotten this program from the Net::Telnet readme file, but it does not
work. When I run it it output a message which I don't understand. How can I
give it userid and passwd for the telnet session..?
===============Program segment=================
#!/usr/bin/perl
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/ksh\$ $/');
$t->open("coyote");
$t->login($username, $passwd);
@lines = $t->cmd("/usr/bin/who");
print @lines;
===============================================
The output message is
timed-out waiting for command prompt at Telnet.pl line 9
Any pointers or help will be appreciated.
Thanks in advance
