#!c:\Perl\bin\perl.exe
use warnings;
use strict;
use CGI::Simple;
use CGI::Carp (qw(fatalsToBrowser));
my $q = CGI::Simple->new();
print $q->header;
my $pwd = $q->param('pwd');
my $id = $q->param('id');
print "
test mech
hi there
id: $id
pwd: $pwd
";