Select Code to Download

perl -E 'our $p = sub { 1 }; my $q = "p"; say $$q->();'

perl -E 'my %dispatch = ( p => sub { 1 } ); my $q = "p"; say $dispatch
+{$q}->();'