package Base;

#use base qw( Carp ); # don't want to do that...
use Carp;

sub new { # do stuff, blah - you know the routine }

package Foo;

use base qw( Base );

# ... no good, don't wanna do '$self->carp'
#sub some_method { my $self = shift; $self->carp("died") }

# would rather just call it normaly, as if it were
# use'd directly from within this package:
sub some_method { my $self = shift; carp "died" }