use FileHandle;
use strict;

my $data;
my $pid;

open(FILE, '+>outfile');
FILE->autoflush(1);
if(($pid = fork()))
 {
   sleep(1);
   print FILE 'ALPHA';
   sleep(5);
   print FILE 'BETA';
   wait();
 }
else
 {
   sleep(3);
   seek(FILE, 0, 0);
   read(FILE, $data, (stat(FILE))[7]);
   print $data, "\n";
   sleep(7);
   seek(FILE, 0, 0);
   read(FILE, $data, (stat(FILE))[7]);
   print $data, "\n";
 }
close(FILE);