use Digest::SHA1  qw(sha1_hex);
use Time::HiRes qw(gettimeofday);
my ($seconds, $microseconds) = gettimeofday;
my $t = $seconds * 1_000_000 + $microseconds;
my $UID = sha1_hex($mail) . '-' . sha1_hex($username) . '-' . sha1_hex($t);