#!/usr/bin/perl

use CGI::Fast;

Initialisierung();

while (my $cgi_req = new CGI::Fast) {
    MeinProgramm($cgi_req);
}

sub Initialisierung {
  # hier die notwendigen Voreinstellungen für das Programm
}

sub MeinProgramm {
  my $C = shift;
  print $C->p("bla");
  print $C->start_div(),C->end_div();
  #...etc..
}