my @chars = ('a'..'z', 'A'..'Z', 0..9);
my $id_len = 20;

my $session_id = join '', @chars[map { rand scalar @chars } 1..$id_len ];