if ($^O =~ /win32/i) { # win32 uses "start" my $cmd = "start \"Glynx-$children\" /MIN /LOW \"$^X\" \"$0\" --slave"; print "$cmd\n" if $VERBOSE; print " [ FORKING: $children ]\n" if $VERBOSE; `$cmd`; } else { undef $pid; if (!defined($pid = fork)) { print " [ cannot fork: $! ]\n" unless $QUIET; # exit 0; } elsif ($pid) { print " [ FORKING: $children ]\n" if $VERBOSE; # print "begat $pid"; # print "I'm the parent"; } else { # print "I'm the child"; } }