while ($url = $query->fetchrow_array()) {
   print "url: $row->{url}\n";
   # logic to get unique filename for output
     my $outfile = $path.$document_id;
   print $outfile;
   my $ff = File::Fetch->new( uri => url );
   $ff->fetch(to => $outfile) or die "failed to fetch '$url' to '$outfile'.";