I'm parsing! But...

[Customer Service]

Hey all! Thanks for everybody�s help so far! Finally got the parsing script
to work! Very excited about that. As a new perl programmer, my confidence is
rising. Just used a cut & paste script, but had to reconfigure.  At least I
know what each line of code does (or think I do anyway).  Heard that cgi.pm
is better, but am still learning how to use it.  Any suggestions?
In the meantime, however, the script prints the form field values in
alphabetical order.  I want it to print in the actual order I have it listed
on the form.  What to do?
And, in the header of the returned values, I would like the script to say
something like:
At (hh:mm:ss), on (mm/dd/yyyy), �So and So� submitted this request for a
�bla-bla� Quote.

Also, I don�t want the customer to see the returned values; I want them
emailed to me. Once they click the submit button, I just want a page to come
up that says �Thank you for your request�, and so forth and so on.  Also, is
this very secure?

Could cgi.pm take care of all of this?
            Thanks for your help.
            Nathan,
            [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
            www.tandrtrailer.com <http://www.tandrtrailer.com/>

Code follows:

#!c:/perl/bin/perl -w

if ($ENV{'REQUEST_METHOD'} eq 'GET')
            {
  @pairs = split (/&/,
    $ENV{'QUERY_STRING'});
}  elsif ($ENV{'REQUEST_METHOD'} eq
  'POST') {
  read (STDIN, $buffer,
            $ENV{'CONTENT_LENGTH'});
  @pairs = split(/&/, $buffer);
} else {
  print "Content-type: text/html\n\n";
  print header;
  print "<P>Use Post or Get";
}

foreach $pair (@pairs) {
  ($key, $value) = split (/=/, $pair);
  $key =~ tr/+/ /;

# Are these next few lines part of my �alphabetical� problem?

  $key =~ s/%([a-fA-F0-9] [a-fA-F0-9])/
            pack("C", hex($1))/eg;
  $value =~ tr/+/ /;
  $value =~s/%([a-fA-F0-9] [a-fA-F0-9])/
            pack("C", hex($1))/eg;

  $value =~s/<!--(.|\n)*-->//g;

  if ($formdata{$key}) {
            $formdata{$key} .= ", $value";
  } else {
            $formdata{$key} = $value;
  }
}

print "Content-type: text/html\n\n";
print header;
foreach $key (sort keys(%formdata)) {
  print "<P>The field named: <B>$key</B> contained:
<U><B>$formdata{$key}</B></U>";
}