Select Code to Download

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

print "This is the parent process\n";

#!/usr/bin/perl -l
# busy_wait.pl
...
        print "Busy!";
        sleep 2;
}

[matt@megatron ~]$ /tmp/forker.pl
Busy!
...
[matt@megatron ~]$ Busy!
Busy!
Busy!