#!/usr/bin/perl -w
#
# A perl script that generates a Hunter S. Thompson-like invective
#

# Yes yes it is ripped off.
# -- das301

use strict;
my @LIST1;
my @PRON;
my @LIST2;
my @NOUN;

@LIST1  = ("vicious",
	 "rancid",
	 "savage",
	 "fiendish",
	 "filthy",
	 "rotten",
	 "demented",
	 "treacherous",
	 "heinous",
	 "scurvy",
	 "devious",
	 "grisly",
	 "hamwit",
	 "filthy",
	 "foetid",
	 "cheapjack",
	 "hellish"
	 );

@PRON = ("You",
	 "That");
	 
@LIST2 = ("festering",
	 "stinking",
	 "crazed",
	 "deranged",
	 "soul-ripping",
	 "drooling",
	 "rabbit-punching",
	 "knee-crawling",
	 "thieving");

@NOUN = ("bastard",
	 "swine",
	 "pig",
	 "imbecile",
	 "berk",
	 "pile of albino warts");


print "$PRON[rand @PRON] $LIST1[rand @LIST1] $LIST2[rand @LIST2] $NOUN[rand @NOUN]!\n";
