#!/usr/bin/perl -w

# Written by felhan 28/3-2011, updated when needed

my @subj = ("LKAB:s styrelse", "Toppchefen", "Ensama mamman", "Khadaffi", "Sollentuna-mannen", "Kicki Danielsson", "Carnegie-mannen", "Systemadministratör", "Socialstyrelsen", "Ryanair", "Porrkungen", "Fettdoktorn", "Zlatan", "Hans Sheike", "Stureplansprofilen", "Reinfeldt", "Juholt");
my @verb = ("om babylyckan", "gripen inatt", "om panikfärden", "rasar", "i knarkrazzia", "till attack mot $subj[int(rand(@subj))]", "varnar för dödsknarket");
my @under = ("- Vi har hela listan", "- Rikslarm imorse", "- \"hon tog mig på pattarna!\"", "- \"Det bara svartnade\"", "- \"$subj[int(rand(@subj))] fattar ingenting\"", "- \"Jag skäms\"", "- \"Jag trodde att jag skulle dö\"", "- Tre till sjukhus", "- Läkarna förstod ingenting");

print "$subj[int(rand(@subj))] $verb[int(rand(@verb))] $under[int(rand(@under))] \n";