#!/usr/bin/perl
use strict;
use CGI qw(:standard);
my @m = qw(moon mind masta mental meta mindless master metal moist mossy merderous mottled medieval monastic monstrous);
my @k = qw(knight knowz killa knowledge key knife knobz knickers knoll knipples knuckles knave killer knockers);
print header, start_html(-title=>'mk generator', -bgcolor=>'white'), "\n";
print join ' ', ($m[rand @m], $k[rand @k]),"\n";
print end_html;