some-usable-scripts/perl/daemon.pl

18 lines
143 B
Perl
Raw Normal View History

2011-02-03 13:47:29 +01:00
#!/usr/bin/perl -w
use strict;
my $pid = fork();
if($pid == 0)
{
while (1)
{
print "On se détache\n" ;
sleep(1);
}
}
else
{
exit;
}