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

##</code><code>##

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');