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
When executed :OUTPUT
:)
BYE COMPANY_NAME
Best Of Luck for all your dreams- friends :):)
~RAVI :)
In reply to Perl Poetry - Farewell by Ravi V
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |