#!/usr/bin/perl -w
use strict;

my $pid=fork(); # there's a fork in the road...
if ($pid){
   wait();  # Parents are always waiting around for children
} else { 
    # This is the child process...
    # hand waving... do stuff here...
    exit(0);
}
# and on our merry way we go.