sub f {
  if($^O =~ /Win/) { .... } else { ... }
}

##</code><code>##

my $f = if($^O =~ /Win/) ? sub { ... } else { ... };

##</code><code>##

# Not real Perl code right now!
IF ....
  sub f { .... }
  sub g { .... }
ELSE
  sub f{ ... }
  sub g { ... }
END