If you're on *nix, fork() returns the child's pid to the parent, and 0 to the child. This works on Cygwin's Win32 port as well (not sure about ActivePerl).

Update: Looks like it works on ActivePerl, too (at least build 613+).