#! /usr/bin/perl
use Clone qw(clone);
use Win32::TieRegistry;
$Registry->Delimiter("/");

my $entries = $Registry->{"HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/"};
my $copyOfEntries = clone($entries);

print $entries->{'/SnapshotMonitors'};
print $copyOfEntries->{'/SnapshotMonitors'};

$entries->{'/SnapshotMonitors'} = ["2","REG_SZ"];

print $entries->{'/SnapshotMonitors'};
print $copyOfEntries->{'/SnapshotMonitors'};

$entries->{'/SnapshotMonitors'} = ["2","REG_SZ"];