gistfile1.pl

sub daemonize {
  my $daemon_log = shift // '/dev/null';
  use POSIX 'setsid';
  my $PID = fork();
  exit if $PID;
  exit 1 if(!defined($PID));

  setsid();
  $PID = fork();
  exit 1 if(!defined($PID));

  if($PID) {
    waitpid($PID, 0);
    exit 0;
  }
  elsif($PID == 0) {
    open(STDOUT, '>', $daemon_log);
    open(STDERR, '>', '/dev/null');
    open(STDIN,  '<', '/dev/null');
  }
}