#!/usr/bin/perl$d="unu lbh ner";$f="guvf vf ";$d.="yrrg";$k=0;$f.="jul lbh qba'g"; $m="zl anzr";$f.=" yrnea gb cebtenz va Crey";$m.=" vf fdhrrxf";$f=~tr/a-zA-Z/n-za-mN-ZA-M/;$f.='.';print $f;