DISCLAIMER: In order to read ANYTHING is this node, please have a sense of humor.

Ok, so I was working on some code that hasn't been working for days, and I FINALLY got it to work after 3 mt dews, and several cups of coffee in 2 hours.
each time this code runs, it saves my company $150,000 in contracting fees, and it FINALLY works! so I'm really excited, and hyper.. (caffeine good), and I have a strange sense of humor, and always laugh at those commercials on tv that go "side effects while rare include".. so I'm working with some cool ppl, so I figured I'd make it funny to read the license..

the few ppl I shared this with found it quite funny, though its not for everyone, it is a joke, and I'll probly get a few --'s but hey, those of who you who work at cool company's where you can put stuff like this in your code, feel free to use it for kicks! :)

# If you suffer from motion sickness, are pregnant, 
# currently have any fractures, or are just in general
# suffer from a weak stomach, this Code may not be 
# right for you.
# Please see your doctor before using this code, side
# effects while rare, can be serious and include:
# dizziness, light sensitivty, sound sensitivity,
# random projectile vomitting, weight loss, weight
# gain, seizures, comatosis, insomnia, schizophrenia,
# plagues of locust, frogs, and yak, droughts, floods,
# earthquakes, tsunamis, hallucinations, as well as,
# increased and sporadic bowl movements and the 
# inability to control them.
#
# code distributed under the same license as perl itself. 
# Code by: Brad Lhotsky <brad@divisionbyzero.net>
[download]

hope I don't offend anyone, there's nothing in there I haven't heard on TV though :P

-brad.. while(1) { $self->inject("caffiene"); }