in reply to 'package' and 'do'

You can probably use caller to get the, erm, caller.
$ perl -le 'package A; do "./done.pl"'
A-e1
$ cat done.pl 
print caller;

[download]

In Section Seekers of Perl Wisdom