use Daemon::Simple;
$prog_name = 'some_prog';

## Initialize Daemon ##
my $homedir = '/';
my $pidfile = "/var/run/$prog_name.pid";
my $command = $ARGV[0];
Daemon::Simple::init($command,$homedir,$pidfile);

## Daemon script ##
  open LOG, ">>$log_file";   # $log_file contains an absolute path
  print LOG "$prog_name started.";


  ## Daemon Loop ##
  while (1) {
    print LOG "before sleep...";
    sleep(1);
    print LOG "after sleep...";
  }


  close LOG;
__END__