константы и прототипы perl

[gcc]

нашел одну программу где используется use constant

но так и не понял зачем вообще используються константы, может кто-то объяснить? чем от них выгода? или это как понимать?

я примеры нашел конечно, но смысла не понял

Код: Выделить всё

package ups;
BEGIN
{
    $SIG{__WARN__} = sub {};
    *main::CONSTANT_TEXT = sub () {'ups...'};
}
1;