1 #!/usr/bin/prefork-interp perl
5 BEGIN { unshift @INC, './pm' }
6 use Proc::Prefork::Interp;
10 my @env = sort keys %ENV;
11 print STDERR "$when - STDERR - @ARGV - $ENV{PREFORK_INTERP} - @env\n"
12 and flush STDERR or die $!;
13 print STDOUT "$when - STDOUT\n"
14 and flush STDOUT or die $!;
19 initialisation_complete();
27 flush STDOUT or die $!;
28 print STDERR length, "\n";