shibayu36 · April 1, 2012 08:26
diff --git a/orphaned-processes-example.pl b/orphaned-processes-example.pl
 #!perl
 use strict;
 use warnings;

 my $pid = fork;
 die "Cannot fork: $!" unless defined $pid;

 if ($pid) {
    warn "pid:$$ is a parent process(child pid is $pid)";
    die;
 }
 else {
    for (1..5) {
        sleep 1;
        warn "I'm an orphan!"
    }
 }
	#!perl
	use strict;
	use warnings;

	my $pid = fork;
	die "Cannot fork: $!" unless defined $pid;

	if ($pid) {
	warn "pid:$$ is a parent process(child pid is $pid)";
	die;
	}
	else {
	for (1..5) {
	sleep 1;
	warn "I'm an orphan!"
	}
	}