#!/usr/bin/perl
use CGI qw(:standard);
print header(-type => 'text/html');
print "<h1>",pwgen(),"</h1>\n";

sub pwgen {
        my @word=qw(ui ei da ey it ba no ok wa ma va za go ja fu te ca ri po ke);
        my $pw="";
        while (length($pw)<8) {
                my $c;
                if (int(rand(10))>2) {$c=$word[int(rand(@word))]}
                else {$c=int(rand(10))}
                $pw.=$c;
        }
        return $pw;
}