my $sourcepackage = caller;
eval "package $sourcepackage; $code";
print "Error in eval: $@" if $@ ne '';

##</code><code>##

------------
:Wq
Not an editor command: Wq