- or download this
Event Log: server: SB TTYPE SEND
Event Log: client: SB TTYPE IS XTERM
- or download this
use Net::Telnet;
use Net::Telnet::Options;
...
$t->open($host);
$t->waitfor('/login:/');
$t->print("$username");
- or download this
($prematch, $match) = $t->waitfor(Match => "/Welcome/");
unless (defined $match) {
print $t->errmsg;
}