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

$host = "myserver.com";
$password='password';
$domain='myserver';
$login = 'my_admin';
$op=`net use \\\\$host\\ipc\$ \"$password\" \/user:$domain\\$login`;
$remoteKey = $Registry->{"//$host/LMachine/SOFTWARE/Microsoft/Windows NT/CurrentVersion/ProductName"} or die "Can't read from $host. Error: $^E\n";
print "$remoteKey\n";