Again in honor to the inspiration for my nickname, here's the last verse of one of W.B. Yeats' best known poems. It's one of those 'translate into Perl' poems - as such it compiles and runs (though not under strict). 
# Twenty centuries of stony sleep
# were vexed to nightmare by a rocking cradle.
# And what rough beast, its hour come round at last
# slouches towards Bethlehem to be born?
#
# The Second Coming
# W.B. Yeats

use constant { CENTURY => 3153600000 };

package stone;

sub sleep (;$) {
  &CORE::sleep(shift);
}

package Cradle::Rocking;

sub vex {};

package Yeats;


Cradle::Rocking::vex( dest => 'Nightmare',
                      subject => sub {
                                 stone::sleep CENTURY 
                                 for (0 .. 19)
                                 } );

my %beasts;
$beasts{'rough'} = [{ dest => 'Eire', mode => 'course', hour => 1 },
                    { dest => 'Innisfree', mode => 'amble', hour => 2}
+,
                    { dest => 'Bethlehem', mode => 'slouch', hour => 3
+},
                   ];
(my $beast) = grep { $_->{dest} eq 'Bethlehem' &&
                     $_->{mode} eq 'slouch'
                   }
              @{$beasts{'rough'}};

while ('Eternity') {
  last if (((localtime(time))[2] == $beast->{hour}));
}

bless $beast, 'Life';

[download]

CU
Robartes-

In reply to Yeats - The Second Coming by robartes

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.