Select Code to Download

$ perl -MData::Dumper -MData::Diver=DiveVal -E 'DiveVal($x = {}, qw(1 
+2 3)); say Dumper $x'
$VAR1 = {
...
                   ]
                 ]
        };

#!/usr/bin/perl
use warnings;
...
}

print Dumper($structure);