use Win32::Registry;

   my $Register = "HARDWARE\\DESCRIPTION\\System";
   my $RegType, $RegValue, $RegKey, $value;
   my %values;

   $HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die $!;

   $hkey->GetKeys(\@key_list);
   $hkey->GetValues(\%values);

   foreach $key (@key_list)
       {
       print "\n$key\n";
       }
   $hkey->Close();