[FiRe]

Code:

#!/usr/bin/perl
use CGI;
print "Content-type: text/html\n\n";

$cgi = new CGI;
$user = $cgi->param('username');

#code to get original username
$original_user = "whatever";

if ($user eq $original_user) {
print "Good!";
}
else {
print "Bad!";
}