Select Code to Download

DBD::mysql::st fetchrow_array failed: fetch() without execute() at has
+-download-0.1.pl line 82.
DBD::mysql::st fetchrow_array failed: fetch() without execute() at has
+-download-0.1.pl line 82.

#~ Update status to 2
            $query = "select status, dataid from radar_data where data
+type=$data_type and hasid ='$HAS_break[5]';";
            $query_handle = $db->prepare($query);
            $query_handle->execute();
            while(my @row = $query_handle->fetchrow_array()) {

#!/usr/local/bin/perl -w
use strict;
use Mail::Box::Manager;
...
$db->disconnect();

exit;