use Net::Telnet::Cisco;
 
my $session = Net::Telnet::Cisco->new(Host => '123.123.123.123');
$session->login('login', 'password');
 
# Execute a command
my @output = $session->cmd('show version');
print @output;