use strict;
use warnings;

my $var = $ARGV[0];

print $var;

open(PS,"ssh -t test\@10.0.0.2 'ls -ltr' |") || die "Error: $!n";
while(<PS>)
{
   print "$_";
}