0: This simple, silly script will generate bumper sticker-like phrases sure to bring a grin.  Enjoy!
1: <code>
2: @SUBJ = ("A woman", 
3:          "My kid", 
4:          "This car", 
5:          "A gun", 
6:          "A baby", 
7:          "A case of beer");
8: 
9: @VERB = ("without a man is like a fish without a bike", 
10:          "beat up your honor roll student", 
11:          "will brake for donuts", 
12:          "doesn't kill people", 
13:          "on board", 
14:          "has 24 cans of beer");
15: 
16: @END = ("and I vote\.", 
17:         "when you pry it from my cold, dead fingers\.", 
18:         "so don't pee in my pool\.", 
19:         "so get used to it\.", 
20:         "and my other car is a cadillac\.", 
21:         "\; coincidence\?");
22: 
23: print "$SUBJ[int(rand(6))] $VERB[int(rand(6))] $END[int(rand(6))]\n";
24: <code>