die("Usage: $0 LENGTH") unless @ARGV;
my @alpha   = ( a .. z, A .. Z );
my $randstr = join '', map $alpha[rand @alpha], 0 .. shift;

print "random string: $randstr", $/;