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