some-usable-scripts/PERL_Language/daemon.pl

18 lines
143 B
Perl
Executable File

#!/usr/bin/perl -w
use strict;
my $pid = fork();
if($pid == 0)
{
while (1)
{
print "On se détache\n" ;
sleep(1);
}
}
else
{
exit;
}