Select Code to Download

perl -e '@a=(a..z,A..Z); print $a[rand @a]'

#!/usr/bin/perl
use strict;
use warnings;
my @a = ('a'..'z','A'..'Z');
print $a[rand @a];