$::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion", $obj) or die "Can't open: $!"; 
    $obj->QueryValueEx("ProductId", $type, $value) or die "Error: $!"; 
print "Die OEM lautet: $value\n";