#!/bin/perl
use FileHandle;   #for autoflush
STDOUT->autoflush(1);

$pid = fork();
defined $pid or die "$0: $!";

if ($pid == 0) {
	print "I am the child.\n";
} else {
	print "I am the parent.\n";
}

exit 0;
