use CGI;

sub main {
  my $cgi = CGI->new();
  print $cgi->header(-type => 'text/html');
       if ($suchen) {
               suchen() 
               }
       elsif ($eintragen) {
                such_eintr()
               }
       }