#! /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");