I. Reading perldoc -f alarm on your console might be helpful.

II. "not working" and "doesn't work" are NOT usually useful descriptions -- are you seeing any messages about your initial error? If so, quote it. If not, at least be specific about "how" it's "not working."

III. Did you note that your OP has been considered for code tags? If not, please do note, and return to your top post to insert the tags described at the text entry box.