if ((!($username eq 'sugar'))  && (!($password eq 'spice')))

print "you have entered a wrong password!";

}


##</code><code>##

#! /usr/bin/perl
use strict;
use DBI;
use CGI qw(:standard);


my($cgi);

$cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);


my ($title) = "DB: Log in";
print $cgi->header ();
print $cgi->start_html (-title=>"$title",  -BGCOLOR=>"#ccddff",
          -style=>{'src' =>'style1.css'});





print "<table width=600 bgcolor=ffcc66><tr><td><b><i> DB: Log in</i></td></tr></table><p>";



my $username;
my $password;




print "<FORM METHOD=\"post\" ACTION=\"http://hostname/~user/cgi-bin/database/homepage.cgi\">";

print "<TABLE><TR VALIGN=\"baseline\"><TD VALIGN=\"baseline\"><h3>Enter user name</h3></TD><TD><INPUT TYPE=\"TEXT\" NAME=\"username\" SIZE=\"10\"></TD></TR><TR VALIGN=\"baseline\"><TD VALIGN=\"baseline\"><h3>Enter password</h3></TD> <TD><INPUT TYPE=\"password\" NAME=\"password\" SIZE=\"10\"></TD></TR><TD><INPUT TYPE=\"SUBMIT\" value=\"Log in\"></TABLE></FORM>";



$username = param('username');
$password = param('password');





print $cgi->end_html ();