sub showStart { # application object my $self = shift; # database handle my $dbh = $self->param('dbh'); # get cgi query object my $q = $self->query(); my %post = $q->Vars; # load template files my $tmpl = $self->load_tmpl('main.phtml'); my $tmpl_sub = $self->load_tmpl('start.phtml'); # some function specific code... # output $tmpl->param( tmpl_sub => $tmpl_sub->output() ); return $tmpl->output; }