Blue Perl

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]

EDIT: Some changes made according to suggestions from tobyink. Also, couldn't resist adding "package" to that! :)

Comment on Blue Perl Download Code
Re: Blue Perl by tobyink (Prior) on Apr 03, 2012 at 07:41 UTC
This doesn't work for me: `listen 'closer' foreach $breath;` [download] I get "Not enough arguments for listen". The following runs without error on 5.10.1. I've added `$_` as an argument to `listen` (`0` could work too) and used a few more barewords here and there. Also, added `or` after the `listen` line as it seems to improve the rhythm. `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 or kill $me, 'with that little death'; "What's the meaning of this rhyme"? 'You will come to learn in' : time; if ($this_little) { $code . is_run }; Then . the . two . $will_be . as , 1;` [download] I'm surprised you didn't work `join` into there. You could make the last lines: `if (this_little . code . is_run ) { join the . two , of . us , as } 1` [download] Or even: `if ( our $little_code = run ) { join the . two , of . us , as } 1` [download] `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l] [select]
Re: Blue Perl by Anonymous Monk on Apr 03, 2012 at 11:01 UTC
There is also X-rated Perl.	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks

Blue Perl

The best material for plates (tableware) is: