#! /usr/bin/perl -T
use warnings;
use strict;
use CGI qw/:standard :cgi-lib/;

my $q = CGI -> new();
my %user_data  = $q -> Vars;

	unless (open( OUT, '>>comments.txt' ))
	{
		print $q->header( 'text/plain' );
		print $q->p( "Error opening file: $!\n");
		die $!;
	}

foreach (sort keys %user_data) {
  print OUT substr($_, 1, 200),"\n";
  print OUT "$user_data{$_}\n"
}
print OUT "========================================\n";
close OUT;

print $q -> redirect ("http://www.kingdomadventures.org/form_thanks.html");

##</code><code>##

	  <form action="./cgi-bin/take_comments.cgi" method="post" name="WriteUsForm">
	  Your Name:<br /><input name="1-From" type="text" size="35" /><br />
	  Your E-Mail Address:<br /><input name="2-Sender's Email" type="text" size="35" /><br />
	  Subject:<br /><input name="3-Subject" type="text" size="35" /><br />
	  Your message:<br /><textarea name="4-Message" cols="35" rows="7"></textarea>
	  <br>
          <input type="submit" value="Contact Us!" />
	  </form>

##</code><code>##

-From
as5924@mysite.org
-Sender
as5924@mysite.org
-Subject
r
Content-Type: multipart/alternative; boundary=56a225acf2431df137c24b0886bd3883
MIME-Version: 1.0
Subject: able bodied, two hundhred an tin pound, forty
bcc: punk65@PunkAss.com

This is a multi-part message in MIME format.

--56a225acf2431df137c24b0886bd3883
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit

of t. ames s finding themselves accidentally re assembled in
--56a225acf2431df137c24b0886bd3883--

.

-Message
as5924@mysite.org