fork.pl to HTML.

index -|- end

Generated: Sun Apr 15 11:46:17 2012 from fork.pl 2011/09/25 269.

#!/usr/bin/perl

my $pid = fork();
if (not defined $pid) {
print "resources not avilable.\n";
} elsif ($pid == 0) {
print "IM THE CHILD\n";
sleep 5;
print "IM THE CHILD2\n";
exit(0);
} else {
print "IM THE PARENT\n";
waitpid($pid,0);
}
print "HIYA\n";

index -|- top