Select Code to Download

use strict;
use warnings;
...

print Data::Dumper->Dump( [ $hashRef ], [ qw{ hashRef } ] );
print q{-} x 30, qq{\n};

------------------------------
$VAR1 = 'name';
...
             'age' => 25
           };
------------------------------