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

my $key;
my $computer = "xxx.xxx.xxx.xxx";
my $name;

			if ($key = $Registry->Open("//$computer/LMachine/SYSTEM/CurrentControlSet/" .
				"Control/ComputerName/ComputerName/", {Access=>KEY_READ}) ) {
					unless ($name = $key->GetValue("ComputerName")) {
						print "Could not attach to read ComputerName on $computer\n";
					}
					print "Name is $name\n";
			} else {
				print "failed\n";
		   }