# and when executed the value for QUERY_STRING is exactly :
name=peyman





#! /usr/bin/perl
# Testing the Environment Variables

use strict;
use warnings;
use CGI qw (:standard);

while (my ($key, $value) = each(%ENV)) {
        print "$key             =>              $value\n";
}

if (! param) {
        print "no param";
} else {
        print param("name");
}

print $ENV{'QUERY_STRING'};