my $result = qx/perl subscript.pl $x1 $x2/; print"result: $result\n";