else
{
                    print "Content-type: text/html\n\n";
                use CGI::Carp qw(fatalsToBrowser);
                print "test<br><br>"; 
                #exit;
		$username = (param('form_user'));
		$userpass = (param('form_pass'));
		$userpass = md5_hex($userpass);

		#check the database

		my $dbh = DBI->connect("DBI:mysql:$edt_dbase", $mysql_user, $mysql_pass) or print DBI->errstr;
		my $sth = $dbh->prepare("SELECT * FROM $users_table WHERE username = '$username' AND user_password = '$userpass'");
		$sth->execute;

                print "test 2";
		
		if ($sth->rows < 1)
		{
			print "Content-type: text/html\n\n";
			print "Login information incorrect.";
			$dbh->disconnect;
			print "<script>window.location = 'login.cgi';</script>\n";
			exit;
		}