1 #!/usr/bin/prefork-interp perl
5 use Proc::Prefork::Interp;
9 my @env = sort keys %ENV;
10 print STDERR "$when - STDERR - @ARGV - $ENV{PREFORK_INTERP} - @env\n"
11 and flush STDERR or die $!;
12 print STDOUT "$when - STDOUT\n"
13 and flush STDOUT or die $!;
18 initialisation_complete();
26 flush STDOUT or die $!;
27 print STDERR length, "\n";