#!/usr/local/bin/perl -w
# randpoetry.pl -- Erzeugt zufaellige Saetze aus Wortlisten

@arts  = qw(the this that every);
@adjs  = qw(blue big small dangerous intelligent old yellow transparent);
@subs  = qw(mouse student fish tv-set book hacker floppy door hedgehog);
@verbs = qw(runs plays explodes sleeps shines cries clicks looks);
@adj2  = qw(on over under with);

while (1) {
    print join(" ", ucfirst($arts[rand @arts]),
           $adjs[rand @adjs],   $subs[rand @subs],
               $verbs[rand @verbs], $adj2[rand @adj2],
               $arts[rand @arts],   $adjs[rand @adjs],
           $subs[rand @subs]), ".\n";
}