Perl hat keine wirklichen Konstanten. Der legt da einfach ne sub an.
Und subs von ausserhalb kannst du erreichen per Package::subname