my $session = new CGI::Session("driver:File", undef, {Directory => '/home/wiw/public_html/tmp'});

my $sid = $session -> id();
$session -> name('sid');
$session -> expire('+60m');
$session -> param('session_uid', $rray[0]);
$session -> param('session_fname', $rray[1]);
$session -> param('session_lname', $rray[2]);
$session -> param('session_email', $email_crypt);