I tried a couple of different things with Template::Stash to get the output of the subroutine, but all seem to result in STDOUT from the subroutine to print at the top of the page.

Here's my modified code:

    my $tmpl_stash = Template::Stash->new( {
    'show_subcat' => \&show_subcat( $lpmkey ),
    } );

    my $tmpl_data = {
    "${lpmkey}select" => ' selected',
#    'show_subcat'     => show_subcat( $lpmkey ),
    'lpmcat'          => $lpmkey,
    'lpmcategory'     => { 'l' => 'Logos',
                   'p' => 'Photos',
                   'm' => 'More',
               }->{ $lpmkey },
    };
[download]

And then I have a <code>{#PERL#} block like you suggested in your post. I also just tried running the subroutine from the block directly, avoiding using Template::Stash, but I'm still running into the same problem.

Any help would be appreciated.

elbieelbieelbie