Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
--- /dev/null
+#!/usr/bin/prefork-interp perl
+
+use strict;
+BEGIN { unshift @INC, '.' }
+use Proc::Prefork;
+
+print STDERR "BEGIN - STDERR\n" and flush STDERR or die $!;
+print STDOUT "BEGIN - STDOUT\n" and flush STDOUT or die $!;
+
+initialisation_complete();
+
+print STDERR "AFTER - STDERR\n" and flush STDERR or die $!;
+print STDOUT "AFTER - STDOUT\n" and flush STDOUT or die $!;
+
+while (<STDIN>) {
+ last unless m{\S};
+ $_ = uc $_;
+ print or die $!;
+ flush STDOUT or die $!;
+}
package Proc::Prefork;
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(initialisation_complete);
use Carp;
use POSIX;