use CGI qw( :standard );
use CGI::Carp qw( fatalsToBrowser );

print redirect("/login.html") and exit 0 unless defined param("Name");

my $Name = param("Name");
my $Password = param("Password");
print header;   # CGI.pm method
# print "Content-type: text/html\n\n";