Select Code to Download

select STDOUT;
$|=1;
...
printf "%d testpipe.pl done\n", scalar time();

exit 5;

use lib '.';
use ProcOpen;
...
}

print "WORKED!!\n";

#!/usr/bin/perl

...


1;