my $ssh = Net::SSH::Perl->new("cisco", debug => 1);