while ( new CGI::Fast ) {
 my $dbh = DBI->connect( );
 # some work with mysql
 # generating of HTML output
}