fork-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)";
    wait;
}
else {
    warn "pid:$$ is a child process(parent pid is $0)";
}