Oh, by the way, it takes a hash and generates the perl to re-create it :)

Have you tried Data::Dumper?

It excels at what you're trying to do, and can stringify all sorts of Perl data structures in addition to hashes.

use Data::Dumper;

my $foo = Data::Dumper->Dump( [ \%ENV ], [qw( ENV )] );
[download]

    --k.