Select Code to Download

$ perl -MO=Concise -e 'eval ($foo)->{bar};'

...
6           <$> const[PV "bar"] s/BARE ->7
-e syntax OK

$ perl -MO=Deparse -e '(eval $foo)->{bar};'
eval($foo)->{'bar'};

(eval($foo))->{'bar'};