#!/usr/bin/perl 

use strict; 

use Net::Telnet::Cisco; 

my ($router, $mail, $line, $routeruser, $routerpass); 

$router = "1.1.1.1"; 
$routeruser="user"; 
$routerpass="pass"; 

$mail = Net::Telnet::Cisco->new(Host => "$router"); 
$mail->login("$routeruser", "$routerpass"); 
$mail->cmd('telnet 2.2.2.2 25'); 
$mail->close;