The reason you are getting 500 error is becuase you are not printing anything out if the username and password don't match. You need to do an else statement after the if ($pass eq $refpass && $log eq $reflog) that prints out invalid login or something, to account for failed logins.

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';
[download]