説明がまずくてすみませんでした。もう一度説明させてください。

たとえば、次のような「hoge.pl」というファイルがあるとします。

1: $s = <<END;
2: package Foo;
3: sub hello {
4: print "Hello¥n";
5: }
6: END
7:
8: eval $s, 'Foo.pm', 1

これを実行すると、evalに渡した文字列が、ファイルFoo.pmの1行目から始まったものとして扱ってくれないかなということです。
この例だとevalはhoge.plの8行目ですが、もし$sの中にエラーがあると、hoge.plにエラーがあったと表示されるのではなく、
あたかもFoo.pmの中にエラーがあったかのようにエラーが表示されてほしいのです。