Select Code to Download

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

#!/usr/bin/perl

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

#!/usr/bin/perl

...
my $code = get_some_code_text;

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