#!/usr/local/bin/perl
# some code
if ($pid = fork )
{
print "this is the parent\n";
}
else
{
print "this is the child\n";
exec `some unix command that does not terminate`;
}
# more of Neils code
exit;