Select Code to Download

test_pre.pl:
use strict;
...
    print DATA "$_\n";
}
close(DATA);

test_slurp.pl:
use strict;
...
}
close(FILE);
print "Used ", time() - $t0, "\n";