#!C:\perl\perl.exe -wT

use strict;
use CGI qw( :standard );
use CGI::Carp qw( fatalsToBrowser );
print "Content-type: text/html\n\n";
my $Name = param("Name");
my $Password = param("Password");

redirect("/login.html") unless param("Name");