- HTML -
<table border="0" cellpadding="20">
<tr>
<td>
Ange användarnamn, lösenord & inloggsID<BR>
<form method="POST" action="p.cgi?login">
Användarnamn: <input type=text name="User"><BR>
Lösenord: <input type=text name="Code"><BR>
InloggsID: <input type=text name="LastID"><BR>
<input type="submit" value="Skicka!" name="submit">
&nbsp;<input type="reset" value="Töm!" name="submit">
</form>
</td>
</tr>
</table>



-Perl-

if ($Sysop eq "login"){
print "Run!\n";
print "<BR>";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
print $buffer;
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
if ($allow_html != 1) { $value =~ s/<([^>]|\n)*>//g; }
$FORM{$name} = $value;
}

print FORM{'User'};
print FORM{'Code'};
print FORM{'LastID'};
$RunMode="Sysop";
}


Vad har jag gjort för fel ?