Select Code to Download

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

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

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