Help for this page
if (fork == 0) { # create a subprocess local $SIG{HUP} = sub {}; # ignore SIGHUP (untested) ... close(MAIL); exit(0); }