# 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;
      }