commit 630d2e023613f9729fce23d25f239724258e48cb
Author: catsus <cl3mens@gmail.com>
Date:   Mon Oct 10 15:37:53 2022 +0200

    Initial commit

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..b3f0dc2
--- /dev/null
+++ b/README.md
@@ -0,0 +1,5 @@
+Autorubrik
+----------
+
+Generate headlines. Aftonbladet probably uses the same script...
+Developed in 2011, so the content reflects that time.
diff --git a/autorubrik.pl b/autorubrik.pl
new file mode 100755
index 0000000..3c78f0c
--- /dev/null
+++ b/autorubrik.pl
@@ -0,0 +1,10 @@
+#!/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";
+