Re: (OT) Perl Snacks

[perlcapt]

When I hear the rumble of thunder from the gods battling about node deletion in the skys above, I drop anchor and settle down with this calming French Caribbean traditional Ti:

use strict; # with personal intepretation on amounts
use warnings; # alchohol affects ones ability to perform
my $favoriteCaneRhum = {
            madeFrom => 'CaneSyrup',
            alcohol => {
                        percent => 40,
                        proof => 80},
            islands => qw(Haiti
                         Guadaloupe
                         Martinique),
            reference => 'http://www.ministryofrum.com'};
my $limeJuice = 0.25;
my $sweetener = (available()) 
     ? 'cane syrup' 
     : 'brown sugur';

my $drink = [$favoriteCaneRhum, $limeJuice, $sweetener, 'water to tast
+e'];

open INPUT ">mouth" || warn "messy";
print INPUT $drink;
close INPUT;

print STDOUT "Tell those noisy gods to play somewhere else.\n";

I guess I should have done this with OO-Perl and that way I could have blessed this drink ;-)