__FILE__ でファイル名を取得できることは知っているのですが、取得したファイル名を探す処理を入れるべきなのか、CPAN のモジュールですぐに解決できるのか見当がつきません。
ググッては見たのですが、該当する結果が得られませんでした。
CPANのモジュールにFindBinというのがあります。
http://search.cpan.org/~nwclark/perl-5.8.6/lib/FindBin.pm
標準でインストールされているはずです。
use FindBin;
print $FindBin::Bin . "\n\n";
→モジュールの配置されているパスを表示
print $FindBin::Script . "\n\n";
→モジュールのファイル名を表示
print $FindBin::RealBin . "\n\n";
→モジュールがシンボリックリンクの場合、実パスを表示
print $FindBin::RealScript . "\n\n";
→モジュールがシンボリックリンクの場合の実ファイル名を表示