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

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