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");