Select Code to Download

my $a = [ $buffer ];
my $d = Data::Dumper->new([ $buffer , $a ]);
my $c = $d->Dump;

#!/usr/bin/perl -w
use strict;
...
my $new_fancy_object_clone = $VAR1;
print "a = $new_fancy_object_clone->{a}\n";