use CGI;
CGI::ReadParse(*input);

$uname = $input{'username'};
......