sub rotbynum{my$t=shift(@_);my$r=shift(@_);if(!$r){$r=13;}print$t.":\n";
$p=0;$a=ord('a');$b=ord('A');$z=ord('z');$y=ord('Z');foreach$c(split(//,
$t)){$o=ord($c);if($o>=$a&&$o<=$z){$o+=$r;if($o>$z){$o-=26;}if($o<$a){$o
+=26;}}elsif($o>=$b&&$o<=$y){$o+=$r;if($o>$y){$o-=26;}if($o<$b){$o+=26;}}
print chr($o);if(++$p>512){die("Infernal loop error!");}}print"\n\n";}1;