#!/usr/bin/perl -w

use strict;

srand;

my @a = ('hurtigtsnakkende','oversexet','en-øjet','skydeglad','dobbeltmoralsk','fjendtlig','træt','fordomsfuld','smånaiv','sky','kølig','krigstræt','adræt','hadefuld','udbrændt','sygeligt fed','verdensberømt','dybt religiøs','gammeldags','ukonventionel','overpriviligeret');
my @b = ('udenbys','pukkelrygget','neurotisk','dagdrømmende','jødisk','forloren','halvsjofel','katolsk','hjemmegående','ridderlig');
my @c = ('korthaj','bibliotekar','opfinder','revyforfatter','cykelsmed','pladevender','skuespiller','filmmand','gentleman','astronaut','vaffelkok','jægersoldat','reklamemand','rockstjerne','brandmand','tyrefægter','politiker','tidligere straffet','frisør','albino','klatretyv','vaskemaskinereparatør','fitnessinstruktør');
my @d = ('med en hemmelighed','som sidder i rullestol','som elsker sin gamle mor','fanget i andres verden','som alle syntes er gal','med en sød tand','som lever på kanten','som ikke kan glemme Vietnam','som intet har tilbage at tabe','med Gud på sin side','på den forkerte side af loven','uden navn','som er gået under jorden i Cirkus Benneweis','med et vindende smil og succes hos kvinderne','plaget af minderne om sin families undergang','som gemmer sit arrede ansigt bag en maske','som altid har haft de forkerte venner','som altid glemmer at more sig','med et træben','som tager medicin for ikke at miste overblikket','i kvindetøj',"hvis højdepunkt i livet var EM '92",'som køber sit buskort for tre måneder ad gangen','som altid har gjort hvad der blev sagt','som altid har levet op til andres forventninger','som lever i overhalingsbanen','som aldrig lærte at cykle','med hang til hurtige biler og nemme penge','som leder efter sin kones sande morder','som har svært ved at sige fra','med skjorten uden på bukserne','som er med på den værste indtil et vist punkt','med en drøm om Hollywood'.'som drømte om noget andet');

my @e = ('kynisk','forvirret','smålummer','blodtørstig','kosmopolitisk','voldelig','ukuelig','radikal','misforstået','mentalt ustabil','provokerende','smuk','kvabset','litterær','rig');
my @f = ('drenget','guldgravende','ekstravagant','hårdhudet','boliviansk','buddhistisk','temperamentsfuld','nymfomanisk','arbejdsløs','cigarrygende','kæderygende','blond','gravid','franskcanadisk','kommunistisk','sønderjydsk','rødhåret','farveblind','mavedansende','nysgerrig','nærsynet');
my @g = ('nonne','enlig mor','advokat','havneluder','pengeskabstyv','forsker','journalist','enke','arkæolog','skolepige','taxichauffør','operasangerinde','færdelsbetjent',"Hell's Angel",'mekaniker','femme fatale','perledykker','bingovært','brugtbilsforhandler','sigøjner','stripper');
my @h = ('med døden åndende i nakken','med en krigers sjæl','opstået fra de døde','udenbys fra','som drømmer om at være Elvis','som lever på lånt tid','som leder efter kærlighed de forkerte steder','fra Nykøbing Falster','på vej i fængsel for et mord hun ikke begik','som kan dreje mænd om sin lillefinger','med en flammekaster','med en sang i hjertet','fra en anden tid og sted','med en stolt aristokratisk baggrund','som kun mangler sit speciale i antropologi','som gemmer sin skønhed bag tykke briller','på flugt fra en satanisk sekt','med otte ældre brødre','som tror hun er reinkarnationen af en egyptisk dronning','som kan se de døde','med grønne fingre','med en ond tvillingesøster','med et modersmærke formet som Sjællands Odde','på sporet af en massemorder','med en andens hukommelse','med sit eget radioprogram','med en doktorgrad i nationaløkonomi','fra Tønder','med en utrolig skæbne','som mistede lykken på et øjeblik','som opgav det søde liv','med vandskræk','med sans for nemme penge','fra en ukendt ø','uden fortid','på flugt','som altid roder sig ind i problemer','som altid havde forestillet sig et andet og bedre liv');

my @out;

push @out,"Han er en ".pickOne(@a).' '.pickOne(@b).' '.pickOne(@c).' '.pickOne(@d).'. ';
push @out,"Hun er en ".pickOne(@e).' '.pickOne(@f).' '.pickOne(@g).' '.pickOne(@h).'. ';
push @out,"De bekæmper kriminalitet.\n";
my $out = join " ",@out;

print "Content-type: text/html\n\n";
print <<"EOF";
<html>
<head>
   <title>Kriminalitet</title>
   <style>
   body {
       background-color: #e0e0d0;
       font-family: Arial, Helvetica;
       color: #8080a0;
   }
   a {
       text-decoration: none;
       color: #8080a0;
   }
</style></head>
<body>
<table cellpadding="50" width="100%" height="100%"><tr><td valign="middle">
<h1>
$out
</h1>
</td></tr></table>
</body></html>
EOF

sub pickOne {
    my @a = @_;
   return $a[int(rand($#a + 1))];
}