Select Code to Download

$ perl -Mstrict -Mwarnings -MData::Dumper -E '
> my @names = qw{ A B C D };
...
           'B' => 'B'
         );
$

$ perl -Mstrict -Mwarnings -MData::Dumper -E '
> my @names = qw{ A B C D };
...
           'B' => 'B'
         );
$