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