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