# CGI::Session::SHA1
# repeat session key hit at 11435

use Digest::SHA1;

my $key = Digest::SHA1->new()->add(
    $$, time(), rand(9999)
)->hexdigest();


# CGI::Session::MD5
# repeat session key hit at 10481

use Digest::MD5;

my $key = Digest::MD5->new()->add(
    $$, time(), rand(9999)
)->hexdigest();


# Apache::Session::Generate::MD5
# repeat session key hit at 4398

use Digest::MD5 qw( md5_hex );

my $key = md5_hex(
    md5_hex( time() . {} . rand() . $$ )
);


# My own concoction
# currently at count 80699, no repeat keys yet

use Digest::SHA qw( sha224_base64 );

my $key = sha224_base64(
    join( '', map {
        chr( (1..127)[rand 127] )
    } 1..1000 )
);