#!perl -w

use strict;

my $pid;
my $flag = 0;

if(!defined($pid = fork)) {
	die "Cannot fork: $!";
} elsif($pid == 0) {
	while($flag == 0) {
		print "SLEEP FOR A SEC.\n";
	}
	
} else {
	sleep(1);
	$flag = 1;
}