http://www.perlmonks.org?node_id=81162


in reply to PM Drinking Game

Take one sip when:

Take one chug when:

Down a can when:

Down the entire case when: