#THE LOGIN PAGE ***********************
  
   #!/biol/programs/perl/bin/perl -w


   use strict;
   use DBI;
   use CGI qw(:standard);
   my $cgi = new CGI;
   use CGI::Carp qw(fatalsToBrowser);

   print "Content-type:text/html\n\n";
   print <<EOF;
   <h2>database</h2><BR>
   <FORM METHOD="post" ACTION="http://myhost/~maisie/cgi-bin/database/
   +frontpage.cgi">
   <h3>Enter user name</h3>
   <INPUT TYPE="TEXT" NAME="username_box" SIZE="10">
   <h3>Enter password</h3><INPUT TYPE="password" NAME="password_box" SIZE
   +="10">   <INPUT TYPE="SUBMIT" value="Log in">
   </FORM> </BODY></HTML>
   EOF