Select Code to Download

...m action="./cgi-bin/take_comments.cgi" method="post" name="WriteUsF
+orm">
Your Name:<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"></textar
+ea>

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

for (keys %user_data) {
  # basically just ripping some junk out
...
  print OUT substr($_, 1, 200),"\n";
  print OUT "$user_data{$_}\n"
}