#!/usr/bin/perl -w
# the new meme script, completely ripped off from the insult script!
# by AndyLandy.  Also try automeme, or even autowikimeme!

@common = qw(Bacon Base Cheese Llama Null Panda Stairs Telephone Tustin);
@words1 = (@common, qw(AllYour Bearded CaseSensitive Crufty DirtyDirty Evil Filthy Indeterminate Insecure Local Organic Pickled Shonky WantSome));
@words2 = (@common, qw(Allann Allsopp Beard BlitterChip Blumenkraft ColinMochrie Cow CSLib Donkey DualBoot EyeBrows Foo GarbageCollection Kirsty Meme Shoes Shonk Shop Soy Spong Spork Spoon Stein Telnet Trousers WiKi Yatta));

$word1 = $words1[rand(@words1)];

do {
  $word2 = $words2[rand(@words2)];
} while($word1 eq $word2);

print $word1 . $word2 . "\n";
