...m action="./cgi-bin/take_comments.cgi" method="post" name="WriteUsForm">
Your Name:<br />
<input name="1-From" type="text" size="35" maxlength="35"/><br />
Your E-Mail Address:<br />
<input name="2-Sender's Email" type="text" size="35" maxlength="35"/><br />
Subject:<br /><input name="3-Subject" type="text" size="50"  maxlength="50"/><br />
Your message:<br />
<textarea name="4-Message" cols="35" rows="7" maxlength="255"></textarea>
##</code><code>##

#you got this..
foreach (sort keys %user_data) {
  print OUT substr($_, 1, 200),"\n";
  print OUT "$user_data{$_}\n"
}

##</code><code>##

for (keys %user_data) {
  # basically just ripping some junk out
  $user_data{$_}=~s/[<>|\/\&\(\)\;\`]/ /g;
}

# and then... whatever you want..
foreach (sort keys %user_data) {
  print OUT substr($_, 1, 200),"\n";
  print OUT "$user_data{$_}\n"
}