1 #!/usr/bin/prefork-interp perl
4 BEGIN { unshift @INC, '.' }
7 print STDERR "BEGIN - STDERR\n" and flush STDERR or die $!;
8 print STDOUT "BEGIN - STDOUT\n" and flush STDOUT or die $!;
10 initialisation_complete();
12 print STDERR "AFTER - STDERR\n" and flush STDERR or die $!;
13 print STDOUT "AFTER - STDOUT\n" and flush STDOUT or die $!;
19 flush STDOUT or die $!;