Select Code to Download

BEGIN { 
sub DB::sub { 
...
}
sub g { T::f($_[0]."a"); }; 
print g("b");

{ 
for $n (keys %T::) { if (defined &{$T::{$n}}) {
...
sub l { -5..4; }
}
sub g { T::f($_[0]."a"); }; g("b");