Select Code to Download

my %dispatch = (
        home            => \&home,
...
        faq             => \&faq,
        ....
);

my %dispatch = (
        home            => sub { \&home(); },
...
        faq             => sub { \&faq(); },
        ....
);

my $default_action = 'home';
my $action = $cgi->param('a') || '';
...
my $executor = $dispatch{$action} ||
               $dispatch{$default_action};
&$executor();

... some html....
<tmpl_include name="other-template.html">
<tmpl_include name="other-static.html">

<!-- news.html -->
...some placeholders here...
...
...
</html>
<!-- end of main.html -->

# assuming load_template() is defined somewhere
# to return a template object
...
);

print $template->output;