do{ $sth->execute() || die "Restore failed with this error $DBI::errstr num: $DBI:err state: $DBI::state\n" ; }while ($sth->{odbc_more_results});