...\Win32-TieRegistry-0.25> nmake test >debug.out 2>&1
  ...\Win32-TieRegistry-0.25> type debug.out

Microsoft (R) Program Maintenance Utility   Version 7.00.8882
Copyright (C) Microsoft Corp 1988-2000. All rights reserved.

	C:\Temp\perl-5.8.8-64\5.8.8\bin\MSWin32-AMD64-multi-thread\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl
1..4
ok 1
# Can't open CU/SW/MS/Win/CV/Pol/Exp//NoDriveTypeAutoRun: The handle is invalid
not ok 2
Use of uninitialized value in print at test.pl line 28.
# REG_DWORD is 4, type is 
Use of uninitialized value in numeric eq (==) at test.pl line 29.
not ok 3
Use of uninitialized value in print at test.pl line 31.
# $val->[0] is "".
Use of uninitialized value in pattern match (m//) at test.pl line 32.
not ok 4

##</code><code>##

    ...
    $sam= defined($opts->{Access}) ? $opts->{Access} : $this->Access;
    $sam= _constant($sam,"key access type")   if  $sam =~ /^KEY_/;
    $sam = KEY_READ;  # <--- force value for debugging
    ...

##</code><code>##

my $reg;
use Win32::TieRegistry (
    Delimiter=>"/", ArrayValues=>1, TiedRef=>\$reg, ":REG_" );

...

my $val= $reg->{ "CUser/Software/Microsoft/Windows/CurrentVersion/"
               . "Policies/Explorer//NoDriveTypeAutoRun" };