#!/usr/bin/perl

require "cgi-lib.pl";

&ReadParse(*input);

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