Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: (OT) Perl Snacks

by perlcapt (Pilgrim)
on Nov 11, 2004 at 16:06 UTC ( #407085=note: print w/replies, xml ) Need Help??

in reply to (OT) Perl Snacks

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 => ''}; 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 ;-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://407085]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2018-01-21 05:23 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (227 votes). Check out past polls.