Perhaps if you could tell us what, exactly, you are trying to do with this code, we could give you a better answer. :)

If you're just trying to fork, see fork for examples. If you're trying to communicate between a child process and its parent, or for examples on a forking server, see perlipc. NetServer::Generic might have some information as well as the various IO:: modules (such as IO::Socket).

If you're messing with signals, see perlvar for information on modifying %SIG, but I don't know how portable and functional signals are under NT (or fork for that matter). You may be more interested in pipes or the IPC version of open to do your communication.