I'm new to the whole Perl poetry thing here, so bear with me. I'm a big fan of 'Black Perl', so here is 'Blue Perl':

package in;

split my $_=fork, pop and wait;
for my $passion (@to_terminate)
{
    map {my $body} ($through and $through);
    shift @me,'oh'..'so close to you!';
}
listen 'closer',$_ foreach $breath;
kill $me,'with that little death';
"What's the meaning of this rhyme"?
'You will come to learn in' : time;
if (our $little_code) {'is_run'};
'Then the two'. $will_be.'as',
1;
[download]

0 0 * * * /usr/bin/perl -MList::Util=shuffle -le'print for shuffle @AR
+GV' Every day "I'm" "shufflin'"
[download]

P.S. If anyone knows how to rotate the entire Cairo surface, please show me. $cr->rotate( PI/6 ); dosn't seem to work.

#!/usr/bin/perl
use strict;
use warnings;
use Cairo;

use constant {
    IMG_WIDTH => 480,
    IMG_HEIGHT => 480,
    PI => 3.1416
};

die "png backend not supported" unless (Cairo::HAS_PNG_FUNCTIONS);

my $png = "$0.png";

my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT
+);
my $cr = Cairo::Context->create ($surf);

# to avoid a bit of angular confusion... :-)
# arc angles are measured from 0 on the x-axis, and angles are
# measured clockwise. So the usual 90 degree position is 3*PI/2.
# There is a negative arc function, see the perldoc for Cairo.
# In other words, the positive y axis is directed downward

#left
$cr->arc (IMG_WIDTH/2, IMG_HEIGHT/2, IMG_WIDTH/2, 3*PI/2,  PI/2);
$cr->set_source_rgb (1, 1, 1);
$cr->fill;

#right
$cr->arc (IMG_WIDTH/2, IMG_HEIGHT/2, IMG_WIDTH/2, PI/2, 3*PI/2);
$cr->set_source_rgb (0, 0, 0);
$cr->fill;

#top semicircle
$cr->arc (IMG_WIDTH/2, 3*IMG_HEIGHT/4, IMG_HEIGHT/4, 3*PI/2, PI/2);
$cr->set_source_rgb (0, 0, 0);
$cr->fill;

#bottom semicircle
$cr->arc (IMG_WIDTH/2, IMG_HEIGHT/4, IMG_HEIGHT/4, PI/2 , 3*PI/2 );
$cr->set_source_rgb (1, 1, 1);
$cr->fill;

#encompassing boundary
$cr->arc (IMG_WIDTH/2, IMG_HEIGHT/2, IMG_WIDTH/2, 0,  2*PI);
$cr->set_source_rgb (1, 1, 1);
$cr->stroke;

# opposite kernels
# top
$cr->arc (IMG_WIDTH/2, IMG_HEIGHT/4, IMG_WIDTH/20, 0, 2*PI);
$cr->set_source_rgb (0, 0, 0);
$cr->fill;

#bottom
$cr->arc (IMG_WIDTH/2, 3*IMG_HEIGHT/4, IMG_HEIGHT/20, 0, 2*PI);
$cr->set_source_rgb (1, 1, 1);
$cr->fill;

$surf->write_to_png ($png);

system ("display $png"); # requires ImageMagick to be installed
[download]

When code is written by the best and the brightest,
It is likely to be the fastest and the lightest,
Loops would be the most efficient and tightest,
And the code would look great overall.

But if it is written by the rest of us here,
It may take a little longer for results to appear,
And some of the logic would not be as clear,
But it might just work overall.

The question is then, as you may have guessed,
Should the writers of code be only the best?
The answer, of course, is whomever has zest,
Will always work out overall.

As long as we admit, we don't know it all,
(Unless you're a Larry, known as a Wall,)
And code for the fun...to answer the call,
We ought to be better overall.

[3/22/2012 fixed typo in last stanza.]

I spit rhymes fast,
I'm a poet and a rapper,
street linguistics I've mastered,
but then I stumbled onto Perl,
and became formality's disaster,
it's a catastrophe,
for me,
trying to write Perl poetry,
imagine me,
magically,
trying to write something sane within Wall's linguistic mastery.
Guttman, you're in the game, 
chromatic's logic keeps me sane, 
the love on PerlMonks keeps me doing it all again...
it became,
monotonous,
keeping everything in context,
I almost lost it before I bought this,
there's more than one way to keep things,
too many ways keep me from knowing how I want them.
Remember reading about references,
back in the day, 
merlyn's book with Gilligan crushed my understanding in all ways,
then it clicked,
and it all came together,
those references to Gilligan,
is what I'll forever remember,
newbs need to read,
and write mistakes constantly,
incredulously,
to get past their insanity,
they must write crappy code and help others,
even if they doubt their certainty.
To give up is failure,
so just show up with code,
like you're an anonymonk high on crack,
and be proud knowing,
you're just another Perl hacker.

© stevieb

$I=%wonder=("What"=> "is", "it"=> "all?");
$I.'thought I had it'."I really did";
'Turns out I';sub Knew{
"Sub Knew, hah, is that even a term?, I'm coining it";
for ($constantly = (each %wonder)){'is greater than the last';
$shifting == $constantly;
$always=($shifting == $shifting);
$constantly;}
"It's";$Never = ($always==True); 'Yet'; $Never=False;
#It can't be, things go...
"to"; return $Never;
'just how it is';}
#Why!?
if ($I==Knew("I'd tell you"))
{
 while ($I='Could'){'...Would you listen?';}
}
[download]

when life conspires against you,
and no longer floats your boat
don't waste your time with complaining
just get on your back and float
[download]

Roman Numerals
are they unicode aware?
only the gods know
[download]