My first beauty perl poetry, I think... and u? :) Send me comments!

#!/usr/bin/perl
#Have a cigar! ;) Dedicated to my friends.
#by J. "JaK" Prendin, nidnerp@libero.it

open (MyPacket,"ITakeACigar");
close(MyPacket);
BEGIN(toSmoke);
open (MyLighter);
$fire=getc MyLighter;
getc $moke;
close(MyLighter);
$life=$moke;
study $life;
END(toSmoke);
goto work;
work:
[download]

Janitored by ybiC: Balanced <code> tags around code