| Current Path : /usr/share/doc/perl-IPC-Run-0.92/eg/ |
| Current File : //usr/share/doc/perl-IPC-Run-0.92/eg/run_daemon |
/usr/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 ;
}
) ;