Select Code to Download

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

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