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