#!/usr/bin/perl -t
use CGI;
my $q = CGI->new;
$session{"user_id"}=$userid;
$session{"password"}=$passwd;
$session{"timecode"}=$time;
$cookie = $q->cookie(-name=>'sessionID',
		     -value=>\%session,
		     -expires=>'+6h',
		     -secure=>0);
print $q->redirect(-uri=>"index.cgi",
		   -cookie=>$cookie);