eval q{
        sub foo1 { ... }
    );
    print <<END;
        You'll need to define your method like:
        sub myMethod { ... }
END
use strict;
{
    my $static;
    sub usesStatic {
        # Note that this routine fails if it
        # gets moved out of this lexical scope.
        return $static;
    }
}