use Digest::MD5;
my $md5 = Digest::MD5->new;
$md5->add(localtime,"%ENV",rand(500));
$mls = $md5->hexdigest();