my $query = CGI->new();
print $query->header;
print <<HTML;