use constant BROKEN_FORK_IMPLEMENTATION => ($^O eq 'Win32');

sub f {
   if (BROKEN_FORK_IMPLEMENTATION) {
      ...;
   }
   else {
      ...;
   }
}