view release on metacpan or  search on metacpan

cgi-bin/login  view on Meta::CPAN

  print q[<h2>Login failed. Please try again</h2>];
  print login_form($decor);
  print $decor->footer();

  return;
}

sub login_form {
  my $decor = shift;

  return q[<h2>Login with a registered account</h2><fieldset class="content" style="width:300px"><legend>Login</legend>] .
         $decor->site_login_form() .
	 q[</fieldset>];
}