Select Code to Download

$ perl -MO=Deparse -wE '$foo{a}=1; $foo{b}=2; say join",", @foo{qw#a b
+#}'
BEGIN { $^W = 1; }
...
$foo{'b'} = 2;
say join(',', @foo{'a', 'b'});
-e syntax OK