BEGIN {
    if ($^O =~ /win32/) {
        my @import = ( Delimiter=>"/", ArrayValues=>0 );
        eval "use Win32::TieRegistry \@import; 1"
            or die $@;
    }
}