Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl -l

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

Select or download this
```
ZfgLnUCDNQ
```