<% $message %> <%args> $key <%init> my $message = $key ? $Messages{$key} : ' '; <%once> my %Messages = ( http_title => 'Welcome', # Invalid user name or password OR username deleted from table 101 => 'Invalid username or password', # No cookie sent to server 201 => 'An error has occured', # The session id from cookie was invalid 301 => 'An error has occured' );