sub woot
{
   my ($self) = @_;
   print __PACKAGE__, "\n"; # <-- prints "foo"
   print $self, "\n";       # <-- prints "bar"
}