package MyClass2;
use MyClass;
use Exporter;
@ISA = ('MyClass');
@EXPORT = @MyClass2::EXPORT;

sub overridden {
   print "This is *my* method, overriding MyClass::overridden!\n";
}

##</code><code>##

#!/usr/bin/perl

use MyClass;

sub MyClass::overridden {
   print "I need this to behave differently.\n";
}

##</code><code>##

#!/usr/bin/perl

use MyClass;

my $code = get_some_code_text;

eval "sub MyClass::overridden { $code }";