#!/usr/bin/perl

print "Content-type: TEXT/HTML\n\n";

@firsts = (deity, bounce, ark, stream, sneaker, net, crumpet, strong, mite, united, drake, strait, bizarre, iron, chef, feed, trough, banana, glee, zesty, leak, gourmet, hallux, water, jet, plow, souffle, head, hammer, mill, turbo, panda, school, montana, sierra, stucco, vagrant, loud, auto, night, stand, watch, photo, anglo, view, plate, sparrow, blind, date, tawdry, yard, rage, master, angry, neighbor, ginsu, bull, dozer, howler, monkey, suture, sailor, yellow, pin, fire, walk, strike, zone, irate, monk, slicker, vicar, junior, mint, somber, knave, olympus, swap, twisted, kilt, trinity, wistful, toll, surly, spawn, dropout, jeep, chimney, pool, turbulence, gopher, set, calendar, picasso, tote, chaser, ghostly, frieze, ramp, candy, gram, cross, beam, cyclone, entourage, hollow, point, genesis, nebula, water, witch, cotton, mouth, dander, spritz,
bungalow, vigil, grub, tackle, dimple, dogsled, catamaran, drama, manicure, plywood, algebra, fiber, lentil, kettle, cardigan, olive, crawdad, rubber, shingle, velvet, hardhat, squid, parrot, karate, suede, robin, milk, beret, spoon, saw, zephyr, conifer, jellyfish, pendulum, shampoo, cartoon, bottom, sandwich, valley, bag, sheep, violet, father, linen, yam, brick, finger, fireman, parallelogram, clover, shape, bite, basin, hail, chocolate, slime, sweat, shirt, lyrical, goofy, puny, kindly, premium, rotten, rural, elderly, proud, witty, glossy, glib, dull, chunky, needy, crab, baguette, vast, grump, hover, chimp, dirt, vessel, bongo, rubble, mango, poppyseed, pepper, powder, strap, boot, pivotal, pylon);
@seconds = @firsts;

until ($first ne $second) {
$first = uc($firsts[rand($#firsts + 1)]);
$second = uc($seconds[rand($#seconds + 1)]);
}

print '
<html>
<head>
<meta http-equiv="Refresh" content="10;">
</head>
<body style="background-color: white;">
<span style="font-size: 80px; font-family: Arial; font-weight: bold; color: #160d71;">';

print "$first$second";

print '</span>
</body>';