#!/usr/bin/perl -w

use strict;
use String::Random;

my $string_random = String::Random->new;

print $string_random->randregex('[a-z2-9]' x 8);