sub such_eintr {        print "\n";        print "FORMULAR";        print '
';        print '
LIDOS Zusatzinformation
';        print '
';      if ($doctyp eq 'SI') {             print '';                }        else {             print '';                } ..................