This simple, silly script will generate bumper sticker-like phrases sure to bring a grin.  Enjoy!
<code>
@SUBJ = ("A woman", 
         "My kid", 
         "This car", 
         "A gun", 
         "A baby", 
         "A case of beer");

@VERB = ("without a man is like a fish without a bike", 
         "beat up your honor roll student", 
         "will brake for donuts", 
         "doesn't kill people", 
         "on board", 
         "has 24 cans of beer");

@END = ("and I vote\.", 
        "when you pry it from my cold, dead fingers\.", 
        "so don't pee in my pool\.", 
        "so get used to it\.", 
        "and my other car is a cadillac\.", 
        "\; coincidence\?");

print "$SUBJ[int(rand(6))] $VERB[int(rand(6))] $END[int(rand(6))]\n";
<code>