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