Writing triggers in Perl