Select Code to Download

#!/usr/bin/perl-w
use Test;
...
#$test->stdout($test->run(args => '-x t.pl',chdir=>$int,interpreter=>'
+$^X'));
ok($a);

1..12
# Running under perl version 5.006 for linux
...
not ok 4
# Failed test 4 in new.pl at line 34
#  new.pl line 34 is: ok($a);