use Storable qw(nfreeze thaw);
sub make_cookie {
 return($q->cookie(
  -name=>'sessionID',
  -value=>unpack("H*",nfreeze(['1245','foo','foopass'])),
  -expire=>'+10m',
  -secure=>0
));
}

sub see_cookie {
 return(@{thaw(pack("H*",$_[0]))});
}

##</code><code>##

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/