Select Code to Download

$ perl -wE 'sub meth { return (@_, q{A}); } my $o = bless {}; my $x = 
+q{meth}; say $o->$x;'
main=HASH(0x10053ad8)A
...

$ perl -wE 'sub meth { return (@_, q{A}); } my $o = bless {}; my %x = 
+(a => q{meth}); say $o->${\$x{a}};'
main=HASH(0x10053ad8)A