You can use the Use::Telnet(); function.. .

Here's a snippit of code:

$t = new Net::Telnet (Timeout => 10,
                      Prompt => '/[>]$/',
                      Errmode => "return" );
$t->open("$hostname.db");
if ($t->login($username, $passwd) ) {
@lines = $t->cmd("<YOUR COMMAND HERE");

Reply via email to