the next source code works ... #!/usr/bin/perl use strict; use warnings; use Net::Telnet (); my $t; $t = new Net::Telnet(Port => 9999); $t->open("192.168.0.166"); $t->waitfor('/Login:/'); $t->print("bozo"); $t->waitfor('/Password:/'); $t->print("bozo"); $t->waitfor('/\@...