#! /usr/bin/perl -wT
use CGI qw(:standard escapeHTML);	
use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 
use strict;
my $html1 = qq(<script type='text/JavaScript' src='scw.js'></script>);
my $html2 = qq(<input name='birthdate' id='date1' type='text' value=''/>
<img src='calendar.jpg' title='Click Here' alt='Click Here'
onclick="scwShow(document.getElementById('date1'),this);" /><br/>);

print header ($html1),
start_html ();
print p ("Element names & values submitted in previous form:");
my @names = param ();	# get list of parameter names
if (!@names)		
{
	print p ("(no elements present)");
}
else				
{
	my @item = ();
	foreach my $name (@names)
	{
		my @val = param ($name);
		$val[0] = "[" . join (", ", @val) . "]" if @val > 1;
		push (@item, escapeHTML ("$name: ($val[0])\n"));
	}
	print ul (li (\@item));	
}
print hr ();
print start_form (-action => url ()),
p ("Enter date:", $html2), br(),
p ("Enter your name:", textfield (-name =>"name", -type=>"text", -size=>"30")), br(),
submit (-name => "Submit Button", -value => "Submit"),
reset (-name => "Reset Button", -value => "Reset"),
end_form ();
print end_html ();
exit (0);