use Digest::MD5;

my $md5    = new Digest::MD5;
my $remote = $ENV{REMOTE_ADDR} . $ENV{REMOTE_PORT};
my $id     = $md5->md5_base64( time, $$, $remote );
$id        =~ tr|+/=|-_.|; # Make non-word characters URL-friendly