#!/usr/bin/perl -w
use strict;

my(@array) = ('a'..'z',0..9);
my($pass);

for(1..8) {
 $pass .= $array[int(rand(scalar(@array)))];
}

print $pass;
exit();