my @colors = qw/ cyan megantha yellow pink Red Green blue cyan megantha yellow orange /;
my $font = 'Euclid fraktur';
print "<br><br><H1 align='center'><b>";
foreach my $letter ( split //, 'PERL MODULES' ){
  do { print $letter; next; } if $letter = ' ';    # special case of space
  printf "<font face='%s' color='%s'>%s</font>", $font, $colors[0], $letter;
  push @colors, shift @colors;                     # rotate the colors
}
print "</b></H1>";

##</code><code>##

$message = '';
if( $login_form_submitted ){
  check user and pass params
  if ok
    redirect to main page
  else
    $message = 'login failed'
  end 
}
print login form here, including $message if it is set