use Digest::MD5 qw (md5_hex);
use Data::Uniqid qw (suniqid uniqid luniqid );

my $id = &gen_token;
print "Id=$id\n";

sub gen_token {
# approx equiv to md5(uniqid(rand(), true));
return md5_hex(uniqid);
}