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!"
    }
}