Select Code to Download

my $sth = $dbh->prepare("select * from market where commodity like ?")
+;

...
while(my $d = $sth->fetch) {
    ;
}

Table: market scan count 1, logical reads: (regular=111 apf=0 total=11
+1), physical reads: (regular=0 apf=0 total=0), apf IOs used=0

Table: market scan count 1, logical reads: (regular=51889 apf=0 total=
+51889), physical reads: (regular=0 apf=0 total=0), apf IOs used=0