while (my $ref = $query->fetchrow_hashref()) {
   print "url: $ref->{url}\n";

   my $ff = File::Fetch->new(uri=> '$ref' );
   my $where = $ff->fetch(to => '/data'| \$scalar) ;