Figure 3: Sample fork and exec

(a) Sample PERL Program

if ($pid = fork() )
{
exec '/bin/date';
exit;
}
sleep(10);
print "The parent is dead\n";
exit;

(B) Output

Sat Jun 11 11:13:48 EST 1994
The parent is dead