use warnings; use strict; use Net::SSH::Perl qw(ssh); #my $commection '192.168.1.1'; my $connection '192.168.1.1'; my $username = 'bob'; my $password = 'password'; print "Starting SSH Services..."; #my $ssh = Net::SSH:Perl->New("$Connection"); my $ssh = Net::SSH:Perl->New("$connection") or die "Connection failed +: $!\n" ; print "Done\n"; # print "Logging in..." #$ssh->login("$username", "$password"); $ssh->login("$username", "$password") or die "Login failed: $!\n"; print "Done\n"; my $command
In reply to Re: Net::SSH Woes
by proceng
in thread Net::SSH Woes
by btobin0
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |