Please take the time to read How (Not) To Ask A Question before posting again.

In particular, you need to show some effort and not ask people to email you. From How (Not) To Ask A Question:

This is a forum, not a mailing list. If you post your email address, then you are only going to allow spam bots to find it and add it to their spam lists. If you take the time to register yourself as a user, you can go to your User Settings and check the box that says '/msg me when there's a reply' under the Miscellaneous options to receive a private message when someone replies. Otherwise, check back in about 10 to 20 minutes, and then once every hour until you have an answer that satisfies you. You should also check back the next day and maybe even the next week - you never know when someone will post a 'late' response that is very helpful and informative.

 [cpan://proc daemon], [metacpan://proc daemon] proc daemon, proc daemon ->

Proc::Daemon - Run Perl program(s) as a daemon process.
Daemon::Control - Create init scripts in Perl
Daemon::Simple - Perl extension for making script as daemon with start|stop controlling on unix system
Daemon::Generic - framework to provide start/stop/reload for a daemon
Daemon::Daemonize - An easy-to-use daemon(izing) toolkit

Just wait a little I'll do the search for you and will send the results ASAP to your google mail account...

"please send me the code..."

OK, but please cash in advance.

Update: If this is beyond your budget, here is a hint.

Karl

Definitely! ;-)

And what's even worse, some monks are not clever enough to spot clever cynicism and will start downvoting you.¹ =)

Cheers Rolf

UPDATE:

¹) ... for the wrong reasons.

Don't make it a good (or appropriate) answer tho.

And what's even worse, some monks are not clever enough to spot clever cynicism and will start downvoting you. ;-)

cynicism is troll/spam

if you're not going to contribute positively, you probably shouldn't contribute -- don't scare off the newbies -- Re^4: When do we change our replies? (approving), Re^2: RFC - shortform posting guidance for newcomers (leverage)

Another hint:

#!/usr/bin/perl 
                                                                      
+                            
# daemon.pl

use POSIX qw(setsid);
use IO::All;
use strict;
use warnings;

daemonize();

my $date_time;

while (1) {
   $date_time = scalar localtime;
   qq($date_time\n) > io('/tmp/daemon.log');
   sleep 5;
}

sub daemonize {
   defined (my $child = fork) or die qq(I really can't do that...!\n);
   exit if ( $child );
   setsid();
   open( STDIN, "</dev/null" ); 
   # open( STOUT, ">/dev/null" );  # inferior mistake!    
   open( STDOUT, ">/dev/null" );                                      
+                              
   open( STDIN, ">&STDOUT" );
   chdir '/';
   umask(0);
   # ENV{PATH} = qq(what/you/really/need);                            
+                                            
}

__END__
[download]

Update: Mea culpa! I talked pretty big before. Perhaps it would have been better if someone pointed me out on this awkward typo? I've seen hints on typos already at the monastery. Anyway - i'm sorry about this.

Examine the result:

tail -f /tmp/daemon.log
[download]

Get the PID:

# ps aux | grep '[/]usr/bin/perl ./daemon.pl' | perl -ane 'print $F[1]
+';
# if many...
ps aux | grep '[/]usr/bin/perl ./daemon.pl' | perl -ane 'print $F[1] .
+ qq(\n)'
[download]

Get rid of it:

Update2:

# kill -TERM $(ps aux | grep '[/]usr/bin/perl ./daemon.pl' | perl -ane
+ 'print $F[1]';)
# if many...

kill -TERM $(ps aux | grep '[/]usr/bin/perl ./daemon.pl' | perl -ane '
+print $F[1] . qq(\n)')
[download]

Best regards, Karl