while (each %day) {
    join #perl
    wait && wait && wait;
    sleep 60 * 60 * int(rand(7));
}
[download]

How sad it is to see, the he that is not me, become the thing that he has long decried.
The annuated bore, crying for what went before; those lost days of his rose tinted youth.

So blind he cannot see, his own bigotry; his intolerance of those with whom he disagrees.
He thinks he is the man; he thinks he has a plan, to suppress the source of his jealousy.

Although he tries to hide, whilst he is being snide, to protect his once held reputation.
It doesn't take ESP, to see that it is he, despite his lukewarm refutation.

With his naughties: "Hate MS" meme; and linux everywhere dream; he doesn't realise, what he has become.
Despite his tender age, he's really turned the page; now both a dinosaur, and utterly dumb.

I love OOP, You love C,
C++'s family.
All the classes made it seem,
That i would love this language stream.

I love OOP, You love Perl,
Let's take Moose out for a whirl,
All the symbols make it seem,
It only takes a package stream.

I spent hours and hours on what not to see,
(To extend Ignored Users, specifically,)
So that it would work in last hour of cb
And then ambrus responded with simplicity.

I tried using javascript, with Greasemonkey installed,
For "editing scripts", it's normally called,
With testing and googling, i was enthralled,
Then a Perl Monks Discussion, to show what i scrawled.

But, .chatfrom_<some digits>, when i took a peek,
I mistakenly thought, was to keep it unique,
Corion explained, ambrus's critique,
It's the monk's node id, and not that oblique.

You work and you learn, even when it's for naught,
And look on with pride, when you see what you wrought,
Though the answer is different than i previously thought,
I'm happy i did it, i reached what i sought.

--

Update: 4th stanza, 1st line, changed "all is" to "it's".

PM XP is just a game,
I know, but yet, and just the same,
The points and levels as they might,
Add extra fun to PM's site.

With each and every node a score,
Begs to some to come for more,
It sends a message loud and clear,
Please come back, we love you here.

But if you hang around for long
You'll hear another PM song,
That you should just ignore XP
And let those silly numbers be.

The points are simply for the node,
Regardless of what you have been told,
It's not a pat or user slight,
It's based upon a node's own might.

Who can argue with what's right?
I'd like to say i've seen the light.
But still deep down the voices say
How many points you have today!

Am i wrong to say i care?
Or any time i look what's there?
Or where i rank inside the Book,
Not that i'll admit i look.

Perhaps a game, though on the side,
With content being the main stride,
As long as you act in that way,
It's okay if you like to play.

A little bit of KC's Sunshine. Enjoy!

#!/usr/bin/perl
# Kurt Schwind: A little of KC's Sunshine

use strict;
use warnings;

my @l = qw(
a
aah
best
booty
can
chance
come
dance
do
don't
down
duty
everybody
feeling
feelings
fight
floor
get
give
home
I
in
it
let's
momma
now
Oh
on
run
shake
sister
tell
the
to
very
well
with
world
yeah
you
You
your
You're
yourself);

sub line {
    my $j = shift;
    while(defined $j ) {
        print $l[$j]." ";
        $j = shift;
    }
    print "\n";
}

sub refrain {
    for(1..6) {
        print $l[29]." ";
    }
    print "\n";
    line (29,41,3);
    line (29,41,3);
    for(1..6) {
        print $l[29]." ";
    }
    print "\n";
    line (29,41,3);
    line (29,41,3);
    print "\n";
};

sub groove {
    for(1..5) {
        print $l[29]." ";
    }
    line (41,3);
};

line (1,12,17,27,32,16,23,7);
line (9,15,41,14,18,43,0,5);
print "\n";
refrain();

line (1,39,4,39,4,8,22,34,35);
line (42,32,2,21,32,37,20,4,31);
print "\n";
line(26);
refrain();

line (26,38);
line (29,29,29,29);
line (1,29,29,29,29);
print "\n";

line(1);
refrain();

line(1);
groove();
line(1,9,15,32,13);
groove();
line(1,18,43,0,5);

print "\n";
groove();
line(42,4,8,22,8,22);
groove();
line(6,19,36,24,25);
groove();

print "\n";
groove();
line(1,28,10,33,30);
line(29,29,29,29,27,41,3);
line(1,8,41,11);
line(29,29,29,29);
[download]

print "Content-type: text/html\n\n";


my @into_the_stream = qw( 1 2 3 );
my $stepsound = "..step";

print "You step into the stream ..";

foreach my $step (@into_the_stream) {
    
    print "<H".$step.">".$stepsound."</H".$step.">";
    
    if($step == 3) {
        sleep 1;
        print "<br>But the water has moved on";
        sleep 1;
        print "<br>Sorry, this page is not here";
    
    }
    
    
}
[download]