main();

sub main {
        print $cgi->header(-type => 'text/html'); #header für HTML
       if ($eintr)  {
                if ($identnr =~m/^\d{6,9}[AB]?$/) {
                        tab_einf()
                }
.....