#!/usr/bin/perl -w
use strict;


use Net::SSH::Perl;

my $hostname = "192.168.1.17";
my $username = "root";
my $password = "Pass1234";

my $cmd = 'ls';
my $cmd1 = 'ling -c 2 -q 8.8.8.8';
my $cmd2 = 'ping -w 3 8.8.8.8';
my @cmds = ($cmd ,  $cmd1, $cmd2);


my $ssh = Net::SSH::Perl->new("$hostname", debug=>0);
$ssh->login("$username","$password");

foreach my $one(@cmds) {
  my ($stdout,$stderr,$exit) = $ssh->cmd("$one") ;
  print $stdout;
}