perl Class-Trigger