my @chars = ('a' .. 'z', 'A' .. 'Z'); 
my $filename = join("", map { $chars[int rand(0+@chars)] } 0 .. 7);