Print Message--Perl Script

This is a Subroutine which is called by the scripts where some message is to be printed on the browser. $message and $type are the parameters passed by the scripts. This subroutine formats the $message accordingly to $type. $type indicates the severity of the message by giving some colour value.   

 
sub print_message {

 my ($message, $type) = @_;

 if ($type =~ /E/i) {
  print center(h3("<font color=red size=+2>$message</font>"));
 }
 elsif ($type =~ /W/i) {
  print center(h3("<font color=purple>$message</font>"));
 }
 else {
  print center(h4("<font color=darkblue>$message</font>"));
 }

}