my $Machine = Win32::TieRegistry->new(
                "LMachine/Software/Microsoft/MSLicensing/HardwareID",
                { Access=>"KEY_READ", Delimiter => '/', },
            ) ;