die "ERROR: unable to fork!! Dying." unless defined (my $child = fork);
exit 0 if $child;
POSIX::setsid();
open(STDIN, "</dev/null");
open(STDOUT, ">/dev/null");
open(STDERR, ">&STDOUT");
chdir '/';
umask (0);
$ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin";
return $$;