Wenn man selbst die Fehlerabfragen macht, dann kann man mit caller (siehe perldoc -f caller) und mit den Token _ _PACKAGE_ _ und _ _FILE_ _ arbeiten...