#! /usr/bin/perl 
use warnings;
use strict;
package huh;
use CGI::Session;
use CGI::Application::Plugin::Session;
use base 'CGI::Application';

sub setup {
      my $self = shift;
        $self->start_mode('mode1');
        $self->run_modes(
                'mode1' => 'do_stuff',
        );
}
sub do_stuff {
	my $self = shift;
	my $session = $self->session;
	print "doing it\n";
}
1;