BEGIN {
    if ($^O eq 'MSWin32') {
        use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>0 );
    # load $config from registry
    } else {
        # else load $config from flat files
    }
} # end system specific compile time code

##</code><code>##

require Win32::TieRegistry;
Win32::TieRegistry::->import(Delimiter=>"/", ArrayValues=>0 );
##</code><code>##

use if $^O eq 'MSWin32',
    "Win32::TieRegistry", Delimiter=>"/", ArrayValues=>0;