Re: Bareword "Z" not allowed while "strict subs" in use

[kcott]

Use quotes:

#!/usr/bin/env perl -l

use strict;
use warnings;

my @chars = ('a'..'z', 'A'..'Z', 0..9);
my $URL = join '', map { @chars[rand @chars] } 1 .. 10;
print $URL;

Output:

ZfgLnUCDNQ