#!perl

use Diagnostics;
use strict;
use warnings;

use Win32::TieRegistry;
use Data::Dumper;
use Storable;

my $key = $Registry->{ "HKEY_CLASSES_ROOT\\.pl\\" };
print Dumper( $key );
store $key, "foo.bar";  #write to a file


my $read_key = retrieve( "foo.bar" );   #read it back
print Dumper( $read_key );

$Registry->{"HKEY_CLASSES_ROOT\\.pl\\" } = $read_key;