use Some::Module;

sub somecode {
   do { print "some stuff\n" }
}

my $somevar = Some::Module->new();
print $somevar->printcode(\&somecode);

##</code><code>##

do { print "some stuff\n" }