Select Code to Download

undef $old;

$old = {
...
                    },
         'name' => 'bob'
       };

#!/usr/bin/perl -w
use strict;
use Data::Dumper;
...
         'name' => 'bob'
       };
$old->{'child'}{'parent'} = $old;