there's also a missing hash to comment out the first line, and you've got what looks to be another conditional line for your EVENT_SAY subroutine inside your EVENT_ITEM subroutine with the variable used to check spelled incorrectly.
here... i'm assuming this should be $text, not $test, and that it shouldn't be in your EVENT_ITEM sub
Code:
if($test=~/waiting/i){