#! /usr/bin/perl
use CGI;

print $cgi->header();
print $cgi->start_html(-title=>'Login',-script=>$JSCRIPT);
print qq{<center><link rel=stylesheet href="/wadmin.css" type="text/css">};


if( $cgi->param('smbt'))
{
       &creat_cooke();
        print $cgi->redirect("Welcome.cgi");
}
else
{
print qq{<form name="frm" method="POST">};
print qq{User<input type ="text" name="login" size=14 maxlength=10>};

print qq{Password <input type ="password" name="password" size=14 maxlength=10>};
print qq{<input type="submit" name="smbt" value="Submit" onclick="return verify()">};
}