#!/usr/bin/perl -w
use strict;
my @myarray=('a'..'z','A'..'Z','1'..'9');
my $mysamplepass;

for (1..8) {
 $mysamplepass .= $myarray[rand(@myarray)];
}
print $mysamplepass;