{ sleep 10; my $cpid = fork; exit 1 if not defined $cpid; exit 0 if $cpid; }