"login.pl"

print <<table;
Content-type: text/html\n\n
<center>
<form action="index.pl" method="GET">
Login to <b>buzzlr.</b><br /><br />
Username:&nbsp;<input type="text" name="username" /><br /><br />
Password: &nbsp;<input type="password" name="password" /><br /><br />
<div align="center">
<input type="submit" name="submit" value="Login" />
</div>
</form>

##</code><code>##

"index.pl"


#!/usr/bin/perl

use DBI;
use DBD::mysql;

local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
   $buffer = $ENV{'QUERY_STRING'};
}
# Split information into name/value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%(..)/pack("C", hex($1))/eg;
   $FORM{$name} = $value;
}
$username = $FORM{username};
$password  = $FORM{password};

...