#!/usr/bin/perl -w
# forker.pl

use strict;

my $pid = fork();
if ($pid == 0)
{
        exec("/tmp/busy_wait.pl");
}
elsif (!defined($pid))
{
        die "could not fork";
}

print "This is the parent process\n";