Hmm, I dont know enough about perl myself to offer up a fix, but you have the right idea.. look into reading/writing files with perl. it should be as easy as writing a timestamp when the event fires and specifying a time limit till it can fire again.