Select Code to Download

my $sth = $dbh->prepare('select * from songs limit 5');
$sth->execute;
...
my $template = HTML::Template->new(scalarref => \$tmpl);
$template->param(data => \@data);
print $template->output;

print Dumper \@data;
__END__
...
          $VAR1->[0],
          $VAR1->[0]
        ];

print Dumper $_ for @data;
__END__
...
          'year' => '1978',
          'id' => '5'
        };

sub FETCH {
  my $self = shift;
...
  my %row = %{$self->[1]};
  return {%row};
}