Select Code to Download

package Encode::ROT13;
  use strict;
...
  *decode = \&encode;

  1;

    use Encode qw(define_encoding);
    define_encoding($object, CANONICAL_NAME [, alias...]);