Select Code to Download

$VAR1 = {
          'banana' => {
...
                     'date' => '1231210'
                   }
        };

use strict;
use warnings;
...
);
my $x = $p->parse($text);
print Dumper $x;