#!/usr/bin/perl

@chars=split //, 'abdefhijmnqrtyABDEFGHJLMNQRTY2345678%/=+*';
for (1..8) {
    print $chars[rand $#chars+1];
}
print "\n";