Select Code to Download

my @colors = qw/ cyan megantha yellow pink Red Green blue cyan meganth
+a yellow orange /;
my $font = 'Euclid fraktur';
...
  push @colors, shift @colors;                     # rotate the colors
}
print "</b></H1>";

$message = '';
if( $login_form_submitted ){
...
  end 
}
print login form here, including $message if it is set