Select Code to Download

my $foo = Obj->new;
for (qw( create init add )) {
  $foo->$_();  # note -- $foo->$_ will not work, ()'s needed
}

my $meth = 'meth';
$A::B::{$meth}->(25);
# %A::B:: is a symbol table
# $A::B::{$meth} holds the typeglob *A::B::meth
# *A::B::meth->(...) is like A::B::meth(...)

#!/usr/bin/perl

...
open ::, ".cshrc";
print scalar <::>;  # is there no end to this madness?
close ::;