Hi, here's one which is slightly simpler, but similar to Dog&Pony's link.

#!/usr/bin/perl
use strict;
use POSIX;
# run in background? 
# 1 = yes, 0 = no 
my $daemon = 1;

#change namelisting in ps, 
# but killall still requires real name 
#$0 = 'daemonz'; 

if($daemon) {
exit if fork;
POSIX::setsid();
}
# script goes here 
while(1){sleep(1)}
[download]