Select Code to Download

use strict;
use Data::Dumper;
...
}
push @tab,[@row];
print Dumper \@tab;

use strict;
use Data::Dumper;
...
   $j++ unless ++$i % 4;
}
print Dumper $tab;

use strict;
use HTML::Template;
...

</body>
</html>