#!/usr/bin/prefork-interp perl

use strict;
BEGIN { unshift @INC, '.' }
use Proc::Prefork;

print STDERR "BEGIN - STDERR - @ARGV\n" and flush STDERR or die $!;
print STDOUT "BEGIN - STDOUT - @ARGV\n" and flush STDOUT or die $!;

initialisation_complete();

print STDERR "AFTER - STDERR - @ARGV\n" and flush STDERR or die $!;
print STDOUT "AFTER - STDOUT - @ARGV\n" and flush STDOUT or die $!;

while (<STDIN>) {
  last unless m{\S};
  $_ = uc $_;
  print or die $!;
  flush STDOUT or die $!;
}