#### #!/usr/bin/perl -w use strict; use warnings; use v5.26; use CGI; use Template; use DBI; use Data::Dumper; use lib qw(.); require "utils.pl"; my $content = "Content-type: text/html\n\n"; my $template = ''; my $vars = ''; my $conn = ''; my $rows = ''; $conn = dbconnect(); $rows = $conn->selectall_arrayref("select ams_wac, sitename from sites where active = 'TRUE' order by sitename",{Slice => {}}); $template = Template->new({ INCLUDE_PATH => ['templates'] }); print Dumper($rows); $template->process('sandbox.tt2', {rows => $rows}, \$content) or die $template->error(); dbdisconnect($conn); print $content; #### Content-type: text/html Sandbox #### $VAR1 = [ { 'sitename' => 'Site One', 'ams_wac' => 'SLRHC' }, { 'ams_wac' => 'SLR', 'sitename' => 'Site Two' }, { 'sitename' => 'Site Three', 'ams_wac' => 'SLRSIX' } ];