use File::HomeDir;
$ENV{HOME} = File::HomeDir->my_home;
use Net::SSH::Perl;
use warnings;
$scon = Net::SSH::Perl->new ("10.0.0.2",protocol=>'1,2',port => '22',debug => '1',interactive=>'1',);
$scon->login("cisco","cisco");
print "looking around ...\n";
($output,$errors,$exit) = $scon->cmd("sho ip route");
print $output;