print new_session_id(), $/;

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