Select Code to Download

#!/usr/bin/perl -wl
use strict;
...

__END__
in base via derived got 42

  $pack->${\qq{${foo}nc}}->(42);

#!/usr/bin/perl
use strict;
...
no strict 'refs';
main->${\1}->(42);    # 1() called with args: main
                      # 1() called with args: 42