Select Code to Download

   my @entry = (@required , @{$rows[$row]});
   my $digest = sha1_hex(@entry);
...
   $sth->execute($digest);
   my ($data) = $sth->fetchrow_array();
   ...