$ perl -le 'package A; do "./done.pl"'
A-e1
$ cat done.pl 
print caller;