sub name_is {
        my $name = shift;
        return "My name is " . $$name;
      }
      my $name = "mt2k";
      print name_is \$name;
    

##</code><code>##

      # get_params
      #    Retrieve all CGI parameters and return
      #    a hash ref containing the data
      # ie: my $input = get_params;
      #     print $input->{'name'};
      sub get_params {
        my $q = new CGI;
        my %cgi_data;
        $cgi_data{$_} = $q->param($_) for ($q->param());
        return \%cgi_data;
      }