#! perl

use Win32::TieRegistry;    



use Win32::TieRegistry;            

$machKey= $Registry->Connect( "HOST", "LMachine", {Delimiter->"/"} )
      or  die "Can't connect to HostA's HKEY_LOCAL_MACHINE key: $^E\n";
   
foreach $key (keys %$machKey)
{    
     print "keys: ", $keys, "Werte: ", $machKey -> {$key};
}