ソースファイルのフルパスなら $0 でわかる(通常は)。
パッケージ名まで知りたいなら
　my ($package, $filename, $line) = caller();
あたりでどうなんだろ？