do 
    {
      my $line = $sock->getline();
      $line =~ s/\n//g;  #trim off any newline characters
      if ( $line eq $completion_line)
      {
        $completion=1;
      }
      else
      {
        push(@items, $line);
        print("Line: \"$line\"\n");
        $sth->execute($backup_archive,$line) or die("Could not perform
+ query: " . $sth->errstr);
      }
    } until ( $completion == 1);
[download]

    until(  $line eq $completion_line );
[download]