Help for this page
if ( my $pid = fork() ) { # parent ... die "Can't fork: $!" if ( ! defined $pid ); # child }