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 :)