use strict;
use CGI;

my $string = "name=alex&sex=m&age=20";
my $q=CGI->new($string);
print Dumper scalar $q->Vars()"

##</code><code>##

use strict;
use CGI;

my $q=CGI->new(); # parses all CGI parameters

print $q->header('text/plain');
print Dumper scalar $q->Vars()"