#!/usr/local/bin/perl -wT
use strict;

use lib qw(/home/nolaflash/www/local_mods);

use CGI ':standard';
use CGI::Carp qw/fatalsToBrowser /;
use CGI::Pretty qw( :html3 );


my $q = CGI->new();

if ( $q->param() ) {
	parse_form();
}

sub parse_form {
	my $sr;
	my @names=$q->param;
	foreach my $str (@names) {
        $sr->{$str} =$q->param($str);
	}

	print $q->header,start_html," @names $action $time $date filet = $filet",end_html;
	exit;
}