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