It doesn't rhyme, but it does run and it is my first attempt at perl doggerel. And it's probably been done before.

use strict;

open(BOTTLE, "of_cola");

my @slurp = <BOTTLE>;

&recycle();

sub recycle() {
    print "\nRemember: reduce, reuse, recycle\n";
}
[download]

I have a wiry brain/each eye a camera. Robot Tourist, by Ten Benson