package foo;

sub woot
{
   print __PACKAGE__; # <-- prints "foo";
   print < INSERT ANSWER >; # <-- prints "bar";
}

package bar;

our @ISA = qw|foo|;

package main;

bar->woot();