if (!defined($pid = fork())) {
   # parent process, fork() failure
}
elsif ($pid == 0) {
   # child process, successful fork()
}
elsif ($justSomeVar == 1) {
   # parent process, successful fork()
}
else {
   # parent process, successful fork()
}
[download]