use strict;
use warnings;
use CGI;
use vars qw($a);
$a=new CGI;
use Catalyst qw/
    Session
    Session::Store::FastMmap
    Session::State::Cookie
    /;
    #@_=("1","2");
    my ( $self, $c ) = @_;
    print $c->session->{foo} = "bar";