#!/usr/bin/perl
$| = 1;
use strict;
use warnings;
use Win32::TieRegistry ( Delimiter=>"/", ArrayValues=>0 ); 
#HKEY_CURRENT_USER\Identities
print '#HKEY_CURRENT_USER\Identities -> ' . $Registry->{"CUser/Identities/Default User ID"};
1;