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

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

print redirect( "/login.htm" ) unless param( "Name" );
my $Name = param( "Name" );
my $Password = param( "Password" );

print header();   # CGI.pm method