use Devel::CheckOS;
setup_for_platform();

... application code goes here ...

# decide what platform-specific code to use
sub setup_for_platform {
  if(os_is('MicrosoftWindows')) {
    *do_stuff = \&do_stuff_for_windows;
  } elsif(os_is('Unix')) {
    *do_stuff = \&do_stuff_for_unix;
  } else {
    die("Don't know about $^O\n");
  }
}

# platform-specific function implementations
sub do_stuff_for_unix { ... }
sub do_stuff_for_windows { ... }