perl - log4perl を使用してメッセージをログに記録するモジュールまたはスクリプトの名前を取得する

Question

特定のモジュールが log4perl を使用してログを記録している場合、log4perl を内部的に使用してそのモジュールの名前を取得する方法はありますか。または、メッセージが srcipt(.pl) からログに記録されます。呼び出し元または log4perl 関数を明示的に使用しない関数を使用する以外に、log4perl のみを使用してスクリプトの名前を取得できますか。