Select Code to Download

my @Chars = '0'..'9', 'A'..'Z', 'a'..'z';

$l = join '', map {$Chars[rand @Chars]} 1..7*($ARGV[0] ||= 1);