perl/prefork-interp-test

   1 #!/usr/bin/prefork-interp perl
   2
   3 use strict;
   4 BEGIN { unshift @INC, '.' }
   5 use Proc::Prefork;
   6
   7 print STDERR "BEGIN - STDERR\n" and flush STDERR or die $!;
   8 print STDOUT "BEGIN - STDOUT\n" and flush STDOUT or die $!;
   9
  10 initialisation_complete();
  11
  12 print STDERR "AFTER - STDERR\n" and flush STDERR or die $!;
  13 print STDOUT "AFTER - STDOUT\n" and flush STDOUT or die $!;
  14
  15 while (<STDIN>) {
  16   last unless m{\S};
  17   $_ = uc $_;
  18   print or die $!;
  19   flush STDOUT or die $!;
  20 }