use CGI::Session;

my $s;

sub new_session {
    $s = CGI::Session->new() or croak CGI::Session->errstr(); 
}

sub check_perm {

    my $req_perm = shift;

    if ($s->param('_perm') < $req_perm) { 
        print $s->header(), 'sorry, no permussion';
        exit();
    }
}

##</code><code>##

use login;

my $s = new_session();
check_perm(1);

$s->param( _some_param => 'some_value');
my $value = $s->param('_some_param');