use CGI::Fast;
while( my $q = new CGI::Fast ) {
    print $q->header,
          $q->start_html,
          "123",
          $q->end_html;
}