use constant TEST => 1;
$a=TEST;

URL:
Обсуждается: http://www.opennet.me/tips/info/9.shtml

• Как определить константу в Perl,Augusta, 18:23 , 30-Окт-03

*MYCONST=\Значение;

Примеры:

*NOSQLQUERY =\ "Невозможно выполнить запрос";
print "$NOSQLQUERY\n";

*YEAR =\ 2003;
print "$YEAR\n";