Select Code to Download

use Win32::TieRegistry(Delimiter=>'/');

my $idval = $Registry->{"HKEY_LOCAL_MACHINE/HARDWARE/DESCRIPTION/Syste
+m/CentralProcessor/0//Identifier"};

Use of uninitialized value $idval in concatenation (.) or string at C:
+\Users\ ... \TieRegistry.pl line 9.

  Key: CConfig/  Value: Win32::TieRegistry=HASH(0x2a184b4)
  Key: CUser/    Value: Win32::TieRegistry=HASH(0x2a1834c)
...
  Key: LMachine/ Value: Win32::TieRegistry=HASH(0x2f8d7ec)
  Key: PerfData/ Value:
  Key: Users/    Value: Win32::TieRegistry=HASH(0x2f8d1ec)

  Key: BCD00000000/ Value:
  Key: DRIVERS/     Value:
...
  Key: SECURITY/    Value:
  Key: SOFTWARE/    Value:
  Key: SYSTEM/      Value:

use strict;
...
    }
}

IDVAL:
...

Can't use an undefined value as a HASH reference at C:\Users\James\Por
+table\strawberry-perl-5.24.0.1-32bit-portable\Perl Source\TieRegistry
+.pl line 28.