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

##</code><code>##

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

##</code><code>##

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