package Foo;
sub foo();
sub new { bless[] }
package Bar;
our @ISA = qw(Foo);
sub new { bless[] }

##</code><code>##

$b = new Bar;
$b->foo();

##</code><code>##

$sub = $obj->can('foo');
# $sub references the sub that would be called if you
# called $obj->foo(), handling inheritance and everything.
# In fact, Perl has enough magic that if everyone plays
# their cards right, it will work for autoloaded methods
# that haven't even been loaded yet.

# ...a bit later...
#
$obj->$sub(@args); # same as $obj->foo(@args);

##</code><code>##

$meth = 'foo';
$obj->$meth(@args); # same as $obj->foo(@args)

##</code><code>##

$"=$,,$_=q>|\p4<6 8p<M/_|<('=>
.q>.<4-KI<l|2$<6%s!<qn#F<>;$,
.=pack'N*',"@{[unpack'C*',$_]
}"for split/</;$_=$,,y[A-Z a-z]
         {}cd;print lc