Select Code to Download

system($^X, '1.pl'); # and check for system's return value!
ok(1, 'Test 1');
system($^X, '2.pl');
ok(2, 'Test 1');

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