#!/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();

##</code><code>##

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/