Select Code to Download

#!perl
use strictures;
...

done_testing(2) if $0 =~ /run\.t\.raw/;

#!perl
# File: runner.t
...
}

done_testing (4);

$ perl run.t.raw
    # Subtest: Prod
...
Files=1, Tests=4,  0 wallclock secs ( 0.03 usr  0.00 sys +  0.02 cusr 
+ 0.00 csys =  0.05 CPU)
Result: PASS
$