package ALIEN;
            no warnings "redefine";
            sub DOMAIN_PORT() {
                666
            }

##</code><code>##

            no warnings "redefine";
            *ALIEN::DOMAIN_PORT = sub() {
                666
            };