Be careful with your lexical variables, besides the compilation errors.

my ($error,$alert,$warning);

All soft-references to ${'error'} in the program refer to global $::error, and not to the lexical variable $error. (Same observations for variables $alert and $warnings; therefore, there was no need to declare them since they are not used.)