print new_session_id(), $/;

sub new_session_id {
    my $id = '';
    for ( 1 .. 32 ) {
        $id .=  sprintf "%x", rand(16);
    }
    return $id;
}

##</code><code>##

use Digest::MD5 "md5_hex";

my @user_info = map { $ENV{$_} }
   grep { /USER|REMOTE/ } keys %ENV;

print md5_hex( rand() . join('', @user_info) );