Select Code to Download

      sub name_is {
        my $name = shift;
...
      my $name = "mt2k";
      print name_is \$name;

      # get_params
      #    Retrieve all CGI parameters and return
...
        return \%cgi_data;
      }