#!Perl -w
use strict;
use CGI::Pretty qw(:standard :cgi-lib);
use HTML::Template;

print header();
my $template = HTML::Template->new (filehandle => *DATA);
print $template->output ();

__DATA__