my $pid = fork;
if (defined $pid and $pid == 0) {
  open STDOUT, ">", $fn or die;
  exec $script, @args;
  exit 1;
}