Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
good chemistry is complicated,
and a little bit messy-LW
 
PerlMonks

Can of soda

by jacques (Priest)
 | Log in | Create a new user | The Monastery Gates | Super Search | 
 | Seekers of Perl Wisdom | Meditations | PerlMonks Discussion | 
 | Obfuscation | Reviews | Cool Uses For Perl | Perl News | Q&A | Tutorials | 
 | Poetry | Recent Threads | Newest Nodes | Donate | What's New | 

on Jun 28, 2004 at 01:35 UTC ( #370072=poem: print w/ replies, xml ) Need Help??

Can of soda in my hand
Try to open it
Pop-top breaks off. What to do?

I make a hole and suck
I am a Perl programmer without a job
Sixty cents is a lot of money

Comment on Can of soda
Re: Can of soda
by zentara (Chancellor) on Jun 28, 2004 at 13:36 UTC
    It works better with 2 holes :-)

    As an aside, I was watching a TV show yesterday, and they had on a female bartender who would BITE open beer cans and suck out the beer. She did it, but it was messy. She said she did it "for the tips"..... what's the world coming to?


    I'm not really a human, but I play one on earth. flash japh
[reply]

      I saw the same show. Keep in mind that since that segment was on beer, those people were likely very drunk when they first thought those things up (but obviously not so drunk that they couldn't remember it).

      (I only watched for the belly dancers that were on later. I think India is a very good idea.

      ----
      send money to your kernel via the boot loader.. This and more wisdom available from Markov Hardburn.

[reply]
Re: Can of soda
by Trag (Monk) on Jun 28, 2004 at 15:06 UTC
    drink $soda->pop;
    get(job);


    our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117, + 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;
[reply]
[d/l]
      wouldn't that more appropriately be
      $sodapop->drink;
[reply]
[d/l]
        Yeah, but better yet (IMHO) would be
        pop @soda;


        our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117, + 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;
[reply]
[d/l]

Back to Perl Poetry

Login:
Password
remember me
What's my password?
Create A New User

Node Status
node history
Node Type: poem [id://370072]
Approved by Ao
help
Community Ads
Chatterbox
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users
Others examining the Monastery: (12)
tirwhan
Moriarty
atcroft
herveus
Eyck
clinton
mtve
ssandv
Hansen
FloydATC
gnosti
stefbv
As of 2009-11-21 10:50 GMT
Sections
The Monastery Gates
Seekers of Perl Wisdom
Meditations
PerlMonks Discussion
Categorized Q&A
Tutorials
Obfuscated Code
Perl Poetry
Cool Uses for Perl
Perl News
Information
PerlMonks FAQ
Guide to the Monastery
What's New at PerlMonks
Voting/Experience System
Tutorials
Reviews
Library
Perl FAQs
Other Info Sources
Find Nodes
Nodes You Wrote
Super Search
List Nodes By Users
Newest Nodes
Recently Active Threads
Selected Best Nodes
Best Nodes
Worst Nodes
Saints in our Book
Leftovers
The St. Larry Wall Shrine
Offering Plate
Awards
Craft
Snippets Section
Code Catacombs
Quests
Editor Requests
Buy PerlMonks Gear
PerlMonks Merchandise
Planet Perl
Perlsphere
Use Perl
Perl.com
Perl 5 Wiki
Perl Jobs
Perl Mongers
Perl Directory
Perl documentation
CPAN
Random Node
Voting Booth

Future historians will find that the material characteristic of the current era is...

Aluminium
Plastic
Oil
Water
Carbon dioxide
Copper
Iron
Silicon
Salt
Uranium
Hydrogen
Other

Results (730 votes), past polls