use CGI;
use CGI::Session;

my $www  = CGI->new();
my $session = CGI::Session->new(
    undef, $www, {Directory=>'/tmp'}
);   

my $imap = Net::IMAP::Simple->new('localhost');
if ($imap->login($www->param("log_username"), $www->param("log_password"))){
    $session->_loggedIn(1);
}