use constant TEST => 1; $a=TEST;
Примеры:
*NOSQLQUERY =\ "Невозможно выполнить запрос"; print "$NOSQLQUERY\n";
*YEAR =\ 2003; print "$YEAR\n";