you seem to have the bit:

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

twice in a row, although that may have been an error in transcription. i would think it wouldn't run at all otherwise.