if(-f "$data_path/ID.txt"){
        open(ID,"$data_path/ID.txt");
        @ID = <ID>;
        close(ID);
        foreach $ID(@ID){
            chomp($ID);
            $ID =~ s/[\n|\r]//g;;
            $IDOK = "NEIN";
            if($FORM{'ID'} eq $ID){
               
 $IDOK = "JA";
               
 last;
            }
        }
        if($IDOK ne "JA"){
            &Show_Error('Your ID is not correct.<br>Ihre ID ist nicht richtig.');
        }
    }