use CGI qw(:standard);
print "Content-type: text/html\n\n";

&main;

sub main()
{
	my $query = new CGI;
	my $indexTemp = HTML::Template->new(filename => 'index.tmpl');
	
	my $fileName = $query->param('filepath');
	my $type = $query->uploadInfo($fileName)->{'Content-Type'};
	
	print $query->param('eventname')."<br />\n";
	print $query->param('date')."<br />\n";
	print $query->param('starttime')."<br />\n";
	print $query->param('endtime')."<br />\n";
	print $query->param('location')."<br />\n";
	print $fileName."<br />\n";
	print $type."<br />\n";
   }

}