package MP3::Napster;       # *not* "package MyNapster;"

sub blah1 { ...
sub blah2 { ...
sub blah3 { ...

1;

##</code><code>##

#!/usr/bin/perl -w

use strict;
use MP3::Napster;
use MyNapster;

my $nap = MP3::Napster->new();
$nap->blah1();
...

##</code><code>##

package MyNapster;
@MyNapster::ISA = qw / MP3::Napster /;

sub blah1 { ...
sub blah2 { ...
sub blah3 { ...

1;

##</code><code>##

#!/usr/bin/perl -w

use strict;
use MyNapster;

$nap = MyNapster->new();
$nap->blah1();
...