Hi, not having much luck with the following my $sql = qq{delete from table where field = something}or warn ........; my $sth1 = $dbh->prepare ($sql1) or warn ...........; $sth1->execute() or warn ..............; while (@row1 = $sth1->fetchrow) { print" @row1 records were deleted from Table: bankdiffs .\n"; } It just wont go inside the while and gives the following error : DBD::Oracle::st fetchrow failed: ERROR no statement executing (perhaps you need to call execute first) at clear.pl line 32. Cheers - Mark _____________________________________________ Mark Martin Computer Centre National University of Ireland Maynooth Tel: (01)708 4716/3830 Fax: (01)628 6249