Softdrink
#!/usr/bin/perl open CAN, "excitedly"; join ($can, $mouth); while ($colaRemaining > 0) {if ($reallyThirsty) {$chug;} else {$sip};} dumpIN_RECYCLING_BOX;IN_RECYCLING_BOX; 
openCola™ marks the first time that open-source licensing has ever been applied to a consumer product. OpenCola is canning the code, so to speak, and will be shipping this sooper dooper gnu soda in the late spring or early summer of 2000. We're expecting more tabs to be popped than at Woodstock ;->
http://web.archive.org/web/200102150...softdrink.html