my $obj = Modul->new(@allgemein_gueltig);

while (my $cgi = new CGI::Fast) {

   my $privat = $obj->setItem('bla');
   $privat->mach_irgendetwas;

}