You're viewing old version number 1. - Current version

#!/usr/bin/perl -wT

use strict;

my @chars = ("A".."Z", "a".."z", "0" .. "9");
my $string;
$string .= $chars[rand @chars] for 1..8;

print $string . "\n";

From JR's : articles
31 words - 208 chars
created on Feb 09, 2015 at 10:25:03 am - #
source - versions

Related articles
Perl Programming Environments - May 06, 2013
Run perl script as a daemon - Nov 14, 2014
Probably my favorite Web apps to use and create - Jan 15, 2014
Perl try, catch, eval, die, warn, carp - Jun 25, 2013
Perl Timer Code - Feb 11, 2015
more >>