use strict;
use CGI;
use HTML::Template;
my $cgi = CGI->new();
my $data = do {local $/; };
my $template = HTML::Template->new(
scalarref => \$data,
);
$template->param(
text1 => 'Text1',
file1 => 'File1',
);
print $cgi->header(), $template->output();
__DATA__
uploader