sub login{ my($name, $pwd)= @_; open(DATI, '<', 'iuser.dat'); flock(DATI, 2); my @daten = ; close(DATI); my $out; my $dat = @daten; $i=1; while($i<=$dat){ @ud = split(/\*\*/, $daten[$i]); if($ud[1] eq $name){ if($pwd eq $ud[19]){ $out='User als '.$ud[1].' identifiziert!'; }else{ $out='Falsches Passwort'; } }else{ $out='User nicht identifiziert!'; } $i++; } print "Content-type: text/html\n\n"; print <<"EOF"; Output Tester Hier ist die Ausgabe:

EOF print $out.'

'; print $_.'
' for @ud; print ''; }