#!/usr/bin/perl

use MyClass;

my $code = get_some_code_text;

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