the fork line should be written as

  defined ( my $pid = fork ) or die "Can not fork!";
[download]