# in your script.pl
my $tbl1_array_ref =
$dbh->selectall_arrayref($sql_tbl1, {Slice=>{}}, @bind_values);
my $tbl2_array_ref =
$dbh->selectall_arrayref($sql_tbl2, {Slice=>{}}, @bind_values);
$tmpl_obj->param( TABLE1_DATA => $tbl1_array_ref );
$tmpl_obj->param( TABLE2_DATA => $tbl2_array_ref );
|
|