grossinator.pl

#!/local/bin/perl
#
# grossinator -- randomly outputs a gross sentence
# likely this is probably the dumbest perl script ever written
#

@first = ("I'm gonna make ",
          "It's time for ",
          "There's nothing like ",
          "You're like ",
          "I just love ",
          "How about ",
          "Let's all make ");

@second = ("a horrible, ",
           "a long, ",
           "a revolting, ",
           "a disgusting, ",
           "a big, ",
           "a slimy, ",
           "a foul, ");

@third = ("gross ",
          "smelly ",
          "oozing ",
          "awful ",
          "putrid ",
          "wretched ",
          "stinky ");

@fourth = ("fart!",
           "burp!",
           "scab!",
           "mmbooger!",
           "snot!",
           "barf!",
           "puke!",
           "poop!");

srand($$);
print($first[rand(@first)],
      $second[rand(@second)].
      $third[rand(@third)],
      $fourth[rand(@fourth)],"\n");