My first attempt at a Perl Poem :)
Inspired by a movie I just saw and a book I read many times
original Poem:

The Road goes ever on and on
Down from the door where it began.
Now far ahead the Road has gone,
And I must follow, if I can,
Pursuing it with eager feet,
Until it joins some larger way
Where many paths and errands meet.
And whither then? I cannot say.

     ---Bilbo Baggins
[download]

And my very humble attempt:

use EagerFeat;
use constant{
    OnAndOn =>1,
    TRUE    =>1,
};

while ($Road == OnAndOn){
    if ($can){
        $follow = TRUE;
    }
    elsif (join(':', $Road,$larger_way)){
        meet($errands, $paths);
        last;
    }
}

$wither_then? cannot():say();
[download]

Mr Guy