caller関数 - 呼び出し元情報を取得する - Perlゼミ|Perlの基礎をインストールからサンプルで丁寧に解説
caller関数を使用すると、呼び出し元の情報を取得することができます。