my $res = qx($^X 1.pl);
chomp $res;
is($res, 1, '1.pl worked');
$res = qx($^X 2.pl);
chomp $res;
is($res, 2, '2.pl worked');