Select Code to Download

$VAR = [
         'bla',
...
         'etc',
         'etc',
       ];

   my $self = shift;
   my $q = $self->query();
...
      $output .= $q->Tr(map{$q->td($_)}@{$result});

   return $output;