You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
10 lines
896 B
10 lines
896 B
#!/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"; |
|
|
|
|