use Time::HiRes 'gettimeofday';
use Digest::MD5 'md5_hex';
use strict;
use warnings;

my $file = uc md5_hex(join ' ', gettimeofday, rand);
print $file;