#!/usr/local/bin/perl -w
## An example of how to daemonize. See the IPC::Run LIMITATIONS section for
## some reasons why this can be a bit dangerous.
use strict ;
use IPC::Run qw( run close_terminal ) ;
run(
sub {
# ... your code here ...
sleep 15 ;
},
init => sub {
close_terminal ;
exit if fork ;
}
) ;