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

##</code><code>##

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