package Maker;

sub make {
    my $pkg = caller;

    my $sub = eval <<"    __EOI__" or die $@;
        package $pkg;

        sub {
            my \$self = shift;
            print "w00t\\n";
            \$self->SUPER::go;
        }
    __EOI__

    no strict 'refs';
    *{ $pkg . '::go' } = $sub;
}