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]))});
}