use Net::Telnet::Cisco;
my ($host, $user, $pass) = qw(10.10.1.1 user pass);

my $cs = Net::Telnet::Cisco->new(
	Host => $host, 
	Dump_Log => 'cisco.log',
	Prompt => '/(?m:^\W?[\w\/\d.:-]+[>#])/',
	);
$cs->send_wakeup('connect');
$cs->login( $user, $pass );

my @cmd_output = $cs->cmd( 'show ver | inc Configuration' );
print @cmd_output;
$cs->close;