package Bar;
use strict; use warnings;

our @ISA = "Foo";

sub foo;
sub AUTOLOAD { print "whoo hoo, ".(our $AUTOLOAD)."!\n" }