Select Code to Download

sub retrieve {

...
  $q->code(Dumper(\$tmpl));
  
}

my $arrayref = $self->dbh->selectall_arrayref( etc....
die Dumper $arrayref;
...
die Dumper $arrayref2;
# and even
die Dumper $q->param('item');

item => $item_value