[ghanja]

perl -c script_name.pl

Do the above to check your scripts (syntax).

On a phone at the moment, though first thing that sticks out is a missing curly (closed) at the end of your EVENT_ITEM subroutine.