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