1
2
3
4
5
use strict;
use warnings;
print "main program\n";
my @args = ("/usr/bin/perl","prog2.pl", "Hallo");
system(@args) or die "system failed: $?";
1
2
3
4
5
6
7
8
9
10
11
12
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 "$_";
}