sub showMemberStart { # application object my $self = shift; # get cgi query object my $q = $self->query(); my %post = $q->Vars; # get session object my $session = $self->session; # database handle my $dbh = $self->param('dbh'); # load template files my $tmpl = $self->param('member_start' => $self->load_tmpl('member_start.phtml', die_on_bad_params => 0)); # output return $tmpl->output; }