use FCGI;

# deine Module ;)
use My::Blah;
use My::Other;
use What::Ever::Else;

use DBI;

# hier den connect zur Datenbank

while(FCGI::accept() >= 0) {

  # hier deine Anwendung    

}