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