Select Code to Download

    do 
    {
...
        $sth->execute($backup_archive,$line) or die("Could not perform
+ query: " . $sth->errstr);
      }
    } until ( $completion == 1);

    until(  $line eq $completion_line );