if ($pid = fork) { 
print "I am parent\n"; 
} elsif (defined $pid) { 
print "I am child\n"; 
sleep 5; 
print "Child is done\n"; 
} else { 
die "Major error: $!"; 
} 
print "PID: $$\n";