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
####
require Win32::TieRegistry;
Win32::TieRegistry::->import(Delimiter=>"/", ArrayValues=>0 );
##
##
use if $^O eq 'MSWin32',
"Win32::TieRegistry", Delimiter=>"/", ArrayValues=>0;