#!/usr/bin/perl
use Net::SSH2;

my $ssh2 = Net::SSH2->new();
$ssh2 -> connect ($ip) or die $!;
$ssh2 -> auth_password ($user,$pass);
my $chan = $ssh2->channel();
$chan->shell();
print $chan "$cmd1\n";
print "$_" while <$chan>;
print $chan "$cmd2\n";
print "$_" while <$chan>;
print $chan "$cmd3\n";
print "$_" while <$chan>;
print $chan "$cmd4\n";
print "$_" while <$chan>;

$chan->close;
$ssh2->disconnect;