while($complete eq "")
{
   $rx=$ob->input;
   $received=$received.$rx;
   $receivedlength=$receivedlength+length($rx);

   if($i == 0)
   {
      print "Warte auf Daten...\n\n";
   }
   if($i == 1 and $receivedlength > 0)
   {
      print "Empfange Daten...\n\n";
   }
   if($rx =~ "\/")
   {
      $checksum=$ob->status;
      $complete=1;
      $msg="ok";
   }
   if($rx =~ "not found")
   {
      $complete=1;
      $msg="Datei wurde nicht gefunden.\nPruefen Sie Ihre Eingaben.";
   }
   if($i > $timeout and $receivedlength == 0)
   {
      $complete=1;
      $msg="Timeout !\nDer PC antwortet nicht. Pruefen Sie die Verbindung.";
   }
   sleep 1;
   $i++;
}