Select Code to Download

perl -we'use strict; sub foo {}; my $a; foo( %{ $a } )'

perl -MData::Dumper -we'use strict; my $a; $a->{b}{c}; print Dumper $a
+'
$VAR1 = {
          'b' => {}
        };