use Image::Magick;$i=new Image::Magick;$i->Set(size,'480x343');$i->Rea
+dImage(
"xc:$c[7]"); @c=('elprup', 'eulbkrad', 'eulbrewolfnroc', 'neergaes','w
+olley',
'egnaro', 'der', 'etihw');for(0..6){$i->Draw(stroke,x($c[$_]),fill,x($
+c[$_]),
primitive,rectangle,points,sprintf "%d,%d %d,%d", 0,$_*49, 480,($_+1)*
+49)}use
WWW::Babelfish; $s=x('hsilgnE');$t=x('ecaep');$b=WWW::Babelfish->new;f
+oreach(
keys(%{$b->languagepairs->{$s}})){$j=$i->Clone;$j->Annotate( stroke,x(
+$c[7]),
fill,x($c[7]),gravity,center,text,uc($b->translate(source,$s, destinat
+ion,$_,
text,$t)), pointsize,80); $j->Display} sub x{join('',reverse(split//,s
+hift))}
[download]

Dear Monks, this is my first obfu and is based on the code of teamster_jr for Image::Magick obfu; I used an image found on dada's Perl lab as model for the output. The code was tested only on Linux. Press Q to see next image.