if ( $^O =~ /win32/i ) {
    require Win32::TieRegistry;
    Win32::TieRegistry->import(Delimiter=>"/", ArrayValues=>0);
}