Use Storable

Update:

Untested code below:Ok, I went back and tested it.

#!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;
[download]

Update2:

Added the last line to write the retrieved values to the registry.

---

<cite>Just a tongue-tied, twisted, earth-bound misfit. -- Pink Floyd</cite>