Select Code to Download

use strict;
use CGI qw(:standard);
...
   }
   return $str;
}

sub make_rows {
   @_ = map { Tr((map { td($_) } @$_)) } @_;
   return wantarray ? @_ : join('',@_);
}