if(!defined($child = fork())) {
    die "Cannot fork: $!";