package Foo::BarMod;
 use Foo::Bar;
 @ISA = qw(Foo::Bar);
 sub stuff {
   my $self = shift;
   # Do stuff, overriding Foo::Bar::stuff
 }
 # Everything else, including new(), from Foo::Bar
 1;