The magic, of course, is in the Rot13 module:
package Rot13; use Filter::Simple;
FILTER { tr/A-Za-z/N-ZA-Mn-za-m/; };
1;
It really couldn't be any simpler