Select Code to Download

my $filename = int rand 2**31;

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