defined(my $pid = fork) or die "Can't fork: $!";
exit if $pid;