Likewise, I have a silly script that creates a Hunter S. Thompson-like insult.
"That devious knee-crawling bastard!"
#!/usr/bin/perl -w
#
# A perl script that generates a Hunter S. Thompson-like invective
#
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",
"pile of albino warts");
print "$PRON[rand @PRON] $LIST1[rand @LIST1] $LIST2[rand @LIST2] $NO
+UN[rand @NOUN]!\n";