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