use strict;

open(BOTTLE, "of_cola");

my @slurp = <BOTTLE>;

&recycle();

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