my $retval = eval $source;
warn $retval->package; # prints package of evaluated # source