BEGIN {
    if ($^O eq "MSWin32") {
        require Win32::TieRegistry; # require not use
        # read some stuff from registry
    } else {
        open (CONFIG, '/etc/something') or die "$!:Blech\n";
        # read some config info in
    }
}