syntax error at a.pl line 15, near "set_message"
BEGIN not safe after errors--compilation aborted at a.pl line 16.

##</code><code>##

Bareword found where operator expected at a.pl line 15, near "set_message"
       (Missing semicolon on previous line?)