while (my $ref = $query->fetchrow_hashref()) {
   print "url: $ref->{url}\n";
   my $ff = File::Fetch->new(uri=>$ref->{url});
   my $where = $ff->fetch( to => '/data/');
}
	$query->finish;