#!/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, {Delimiter=>"\\"};
print "$reg\n";
$reg->CreateKey($PID_KEY) or die("$^E\n");

##</code><code>##

Use of uninitialized value $reg n concatenation <.> or string at test.pl line 8.
Can't call method "CreateKey" on an undefined value at test.pl line 9.

##</code><code>##

#!/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");

##</code><code>##

 my $reg = new Win32::TieRegistry $PID_KEY_ROOT,{Access=>"KEY_READ",Delimiter=>"\\"};

##</code><code>##

 
$reg->CreateKey($PID_KEY)