my $Register = "Path of the Registry";
		my ($RegType, $RegValue, $RegKey, $value,$hkey);
		my %values;
		
		$HKEY_LOCAL_MACHINE->Open($Register, $hkey); 
		if (defined $hkey ){		
			$hkey->GetValues(\%values);
			
			foreach my $key (keys(%values)) {
				$RegType 	= $values{$key}->[1];
				$RegValue 	= $values{$key}->[2];
				$RegKey 	= $values{$key}->[0];
				print "\nREG KEY = $RegKey";
				print "\nREG VALUE = $RegValue";
				print "\nTYPE =  $RegType : ";
				print "\n\n"
			}
			$hkey->Close();
		}else
		{
			print "\n $hkey NOT DEFINED for $Register...";
		}