A Perl Daemon Example Script

#!/usr/bin/perl -w
#$file: daemon.pl - a daemon example script 
use strict;

# become daemon
my $pid = fork();
print $pid,"\n";
if($pid) {
  #end parent process
  print "#parent process";
  exit(0);
}else {
  print "#child process";
}

# set new process group
setpgrp;
# setsid ? only C

while(1) {
  sleep(30);
  open ("TEST",">>/tmp/test.log");
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  $year+=1900;$mon++;
  print TEST ("Now is $year-$mon-$mday $hour:$min:$sec.\n");
  close (TEST);
}