$sql = qq{ 
 	RESTORE DATABASE ${dbname}
   	FROM disk = '${filename}'
   	${recovery} 
      	, MOVE '$datadev_srcname' TO '$datadev_phyname' 
      	, MOVE '$logdev_srcname' TO '$logdev_phyname'
	,replace
	};

}

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

##</code><code>##

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