定数

Perlで定数を使用する時は、use constantを使用します。

use constant DATA => 0;
print DATA; # 0と出力されます


定数には文字列も指定可能です。

use constant DATA => 'TEST';
print DATA; # TESTと表示されます