Select Code to Download

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

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