use CGI::Simple;
my $q = new CGI::Simple;
print $q->header(%HTTP_HEADERS);
print $html;
# response complete
... continue with various tasks ...