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;
[download]

Output:

ZfgLnUCDNQ
[download]