#!/usr/local/bin/perl -wT
use CGI ':standard';
use strict;
use CGI::Carp qw/fatalsToBrowser/;
$CGI::POST_MAX = 500;

my $datetime = localtime(); # assignment is scalar context
my $subject = param('subject');
my $issues = param('issues');
my $email = param('email');
#my $arg = $ARGV[0];
$name = $subject;




###########This is not working#############

open (LOG,">$name") or die("Error in opening the file :$!:"); 
print LOG "$datetime,$subject,$email,$issues\n";
close (LOG);


#####################################

print "Content-type: text/html\n\n";
print "<h2>Thank you for your post. Your entry will be reviewed..etc etc</h2>\n\n";
print "<P>Subject: <I>$subject</I>\n";
print "<P>Your message: <I>$issues</I>\n";
print "<P>Your email address: <I>$email</I>\n";
print "<P>Posted on: <I>$datetime</I>\n";  # returns Fri Sep 10 12:19:13 1999

sub Error {
	print "Content-type: text/html\n\n";
	print "The server can't $_[0] the $_[1]: $! \n";
	exit;
}