© 2012

sub o{ print@_; scalar <>; }
o "How to increase 2 output?\n";
o "More fiber you say?\n";
o "Really?\n";
__END__
How to increase 2 output?
eat about 2.5 tablespoons of chia seeds daily
More fiber you say?
yes, more fiber, but whith chia you also get omega-3
Really?
yes, really
[download]

here is my first perl poetry, which i have written while taking farewell from my colleagues....

#!/usr/bin/perl
# first i wanna
use warnings;
#as i m new to whole poetry thing.

my $dear = "friends" .
"as"; my $journey;
@on = (" COMPANY_NAME","ends");

each %of ; $you = "" .
"Best Of Luck " .
"for all your dreams";

while (<i am gone>) {}
do { $give_me_a_call=
"on";
my $cell = "+00 0000000000"; 
#OR
#you can just
$drop_me_a_mail = 'ravi.v@xyz.com';

#on last Day;
}; $I = "wanna_say";
($thanks, $to_all) = ("\:\)\n", "till the day") ;

$I =~ /have_to/ ;
$to=pack('c*',66,89,70-1) . #and_move
$on[0] . "\n";

#again
$to_all = %of . $you;
$give_me_a_call =~ /or/ ;
$drop_me_a_mail =~ /(.*)..@..(.*)/ ; #

#and let me
print $thanks, $to, $you, "- friends ...take care\:\)\:\)\n\n~" .
uc($1) . " \:\)\n" ; #i mean c u
[download]

When executed :OUTPUT
:)
BYE COMPANY_NAME
Best Of Luck for all your dreams- friends :):)

~RAVI :)

© 2012

1 B, the special Bee, the Spelling Bee
2 B, must be the Apple run. BLOAD and BRUN, made Being apple fun.
3 B, the Better Be, the bureau whose business helps us Be.
4Bes, publishes a list, filled with the world's richest.
5 Bs, is a hive, it stings! it hurts! but i'm still alive.

There is that one monk, who most do not see,
A quite quiet fellow, at our monastery,
He loves to clean up, and dust off those bits,
And screams at the slackers, often in fits.
He can get quite angry, raising his fists,
But all of us love him, and just let him be.

He knows all the places, he's been here a while,
He knows all the rooms, and then every tile.
He puts things in order, in all in their places,
He cleans up the trash, without leaving traces,
He knows all the monks, recognizes their faces,
And memorizes the information on file.

He rotates the logs, and never asks why.
He cleans up the systems, so they can get by,
He dusts off the screens, and washes the cases,
He makes all the backups, on a regular basis,
He installs all the systems, keeping their places,
And knows plenty of digits in pi.

Yet despite all of his, keeping things going,
His weakness is, it always starts showing,
All of his greatness, begins to unfurl,
His brain just stops working, and goes for a whirl,
Whenever it comes to, coding in perl,
He's the one monk, who knows not of coding.

Everyone wonders, why is he here?
Yet everyone loves him, and holds him so dear,
He's always so friendly, makes sure to say hi,
He's tries to stay hidden, he truly is shy,
He helps others out, 'cus he a nice guy,
It kind of feels good when he's near.

At first all his quirks, had other monks sneering,
The terrible gossip, and unpleasant jeering,
Yet he won them all over, when he helped them out,
He always shows up, he's always about,
Now they're on his side, he has lots of clout.
As if he got a fair hearing.

So, if you see him coming, you should feel glad,
He's sure to help out, if only a tad,
He can always introduce you, to people he knows,
He can always inform you, he knows how it goes,
He'll even just listen, to all of your woes,
He really isn't that bad.

There's a time to rhyme
And a time to code,
Instead of writing this silly ode.

There's a rhyme to time,
And a rhyme to code,
Yet still i'm writing this silly ode.

And now i'm out,
Of the two-bit switch,
And yet i wonder now of which.

I'm out for now,
To switch my bits,
And hopefully then, i will know which.

Hey Perl, it's been a while
I used to use you in, always in style

Not everyone appreciated
the cool code, that I created
But there were those special few (Perl Monks!)
who knew, what I saw in you

They asked me hey, write me a regex
I'd say, of course, nothing is too complex
If only they had appreciated
what to them, seemed so discombobulated

Maybe I am just a little old-school
but I still think that Perl is cool