Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
No such thing as a small change
 
PerlMonks  

my $deity;

by Sir mXe (Acolyte)
on Jun 21, 2011 at 23:10 UTC ( #910829=poem: print w/ replies, xml ) Need Help??

On the first day of Creation, my $deity gave to me BEGIN { reality(); } On the second day of Creation, $deity gave to me do { print; } while ( <> ) #presuming you read ) as close parenthesis On the third day of Creation, $deity gave to me foreach my $key ( keys %hash ) { $hash->{$key} = "breathe"; } On the fourth day of Creation, $deity gave to me my $obj = Earth::Humanity->new(will => "free"); On the fifth day of Creation, $deity gave to me tie %myself, $obj->get(target => "me"); On the sixth day of Creation, $deity gave to me $myself{"name"} = "Sir mXe"; On the seventh day of Creation, $deity took a rest, $deity->sleep() && bless; ... On the final day of Revelations, $deity gave to me, END { close_reality(); }

Comment on my $deity;
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://910829]
Approved by Argel
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2014-04-19 01:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (475 votes), past polls