my $pid = fork;
die "fork failed: $!" unless defined($pid);
if ( $pid == 0 ) {
    # child
    close STDOUT;    # <--- !!
    close STDERR;    # <--- !!
    ...
    exec $program, @args;
    die "exec failed";
}