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";

##</code><code>##

     1. Can't call method "session" on an undefined value at /var/www/birdbreeders/session.pl line 14

     2. Premature end of script headers: session.pl