On windows the null device is simply 'NUL' I belive.

To make it portable do this instead.

use File::Spec;

sub phork {
  #...
  open(STDOUT, '> ' . File::Spec->devnull);
  open(STDERR, '> ' . File::Spec->devnull);
  #...
}
[download]

That _should_ do it.