#!/usr/bin/perl -w
use strict;
use Win32::TieRegistry;

my $PID_KEY_ROOT	= "LMachine\\SOFTWARE\\";
my $PID_KEY		= "Test";
my $reg = new Win32::TieRegistry $PID_KEY_ROOT,{Access=>"KEY_READ",Delimiter=>"\\"};
print "$reg\n";
$reg->CreateKey($PID_KEY) or die("$^E\n");