#!/usr/bin/perl
use Net::Telnet;
$|=1;

$username = 'MYUSERNAME';
$password = 'MYPASSWORD';
$device = 'MYROUTER';

@commands = ('sh invent','sh ver | i uptime');

main();

sub main {
        telnet_open($device);
        foreach my $command (@commands) {
                print $telnet->cmd($command);
        }
        telnet_close($device);
}

sub telnet_open {
        my ($device) = (@_);
        $telnet = new Net::Telnet ( Timeout=>60,
                                    Errmode=>'die',
                                    Prompt => "/(\>|\#)\$/i");
        $telnet->open($device);
        $telnet->login($username, $password);
        $telnet->cmd('term length 0');
}

sub telnet_close {
        $telnet->close;
}