sub login
{
   my($name, $pwd) = @_;
   my $dati; # so muss ein filehandle aussehen :)
   my $out = "";

   if(open($dati, '<', 'iuser.dat'))
   {
      flock($dati, 2);
            
      $out = "User nicht identifiziert oder falsches Passwort!";
      while(<$dati>)
      {
         my @ud = split(/\*\*/, $_);
         if($ud[1] eq $name and $pwd eq $ud[19])
         {
            $out = "User als $name identifiziert!";
            last;
         }
      }

      close($dati);
   }
   return $out;
}