#!/usr/bin/perl -w
use CGI;

$page = new CGI;
print $page->header();

print $page->start_html();

if ($page->param('submit'))
{
	@files = grep {defined CGI::param($_) or CGI::param($_) ne ''} CGI::param();
	print @files;
	exit;
}
print $page->startform();

@latest = qw(one two three);
foreach $fname(@latest)
{
	print qq($fname <input type='checkbox' name='$fname' value='$fname'>);
	print qq(<br>\n);
}
print qq(<input type='submit' name='submit' value='Submit');
print $page->endform();
print $page->end_html();