use Digest::MD5
my $cookie_id = Digest::MD5::md5hex($$.time.$ENV{'REMOTE_ADDR'});