Select Code to Download

my ($row,$col) = ('a',0);
my $total_cols = $table->get_col_count();
...
   $row++ and $col = 0 unless $col % $total_cols;
   return $new;
});

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
...
   end_form(), end_html();

$DBH->disconnect();

param() = (
  '_926=title',
...
  '_927=genre',
  'Submit Button'
);

%hash = (
  '926' => {
...
    'year'   => '1975'
  }
);