#!/usr/bin/perl -w $pid = fork(); if ($pid == 0) { print "We're in the child process."; exit(0); # Terminate child. } elsif (! defined $pid) { print "Not defined: means an error."; } else { print "Parent process."; print "Do something..."; # Reap child. $id = wait(); # Do something after child dies. print "Child $id is dead.\n"; }