#!/usr/bin/perl

use CGI;
my $cgi = new CGI;

#set up the partial header , Content-type
print $cgi->header("text/html");

#create title
print $cgi->start_html("LOGIN PAGE");
print $cgi->h1("ENTER USERID");
print $cgi->p("USERID:");
print $cgi->textfield(-name=> "ID");
print $cgi->p("PASSWORD:");
print $cgi->password_field(-name=> "PASSWD");
print $cgi->hr();
print $cgi->submit(-name=> "enter", -value=> "Enter");
print $cgi->submit(-name=> "cancel", -value=> "Cancel");
print $cgi->end_html();