perl Class-Trigger Class::Trigger