my $pid = fork;
    die "Couldn't fork: $!" unless defined $pid;

    if ($pid) {    # parent
        print "Forked off a child!";
        exit;
    }
    else {         # child
        close(STDIN);
        close(STDOUT);
        close(STDERR);

        exec "/foo/bar/long/process"
            or die "Can't exec: $!";
    }