my $pid = fork();
exit(1) if $pid < 0;
exit(0) if $pid > 0;