#!/usr/bin/perl
#use strict;
#use warnings;
use Net::SSH::Perl;

my $host = "XXXX";
my $user = "XXXX";
my $password = "XXXX";
my $path = "/XXXX";
my $cmd = "tar -xvzf XXXX.tar.gz";
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $password);
my($stdout, $stderr, $exit) = $ssh->cmd("cd $path && $cmd");