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