use strict;
use warnings;
package WebApp;

use base qw(CGI::Application);
use Template;
use CGI::Application::Plugin::TT;
sub setup {
        my $c = shift;
        $c->start_mode('mode1');
        $c->run_modes(
                        'mode1' => 'do_stuff');
        }
        sub do_stuff {
                          my $c = shift;
                          my $h = $c->query();
                          my $name = $h->param('name');
                          my %params = (
                                                name => $name,
                                        );
                        $c->tt_process('template.tt', \%params);

                  }


        1;