in reply to Session ID Generator (Rolled My Own)

a one liner?  my $sess_id = md5_hex('s3cr37 s7r1n6'.$$.localtime().rand());

Of course you'll need md5.

In Section Seekers of Perl Wisdom