#!c:/Perl/bin/Perl.exe

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

my $q = CGI->new;
my $usr = $q->param('username');
my $pwd = $q->param('password');

die "usr: $usr -> pwd: $pwd";

__DATA__
Software error:

usr: test -> pwd:  at C:/www/local/test2.cgi line 12.