use strict;
use warnings;

use Win32API::Registry 0.22 qw ( :ALL );

my $sSubKey = "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon\\DefaultDomainName\\";
my $ohSubKey;

RegOpenKeyEx( HKEY_LOCAL_MACHINE, $sSubKey, 0, KEY_READ, $ohSubKey ) or die regLastError();

print "$ohSubKey\n";