perl Class-ErrorHandler