Perlで定数

Perlで定数を使いたい。
変更を不可にするんじゃなくて、パフォーマンスをアップするために。
で、
http://eureka.prits.jp/resources/developer/perl_memo.html
によると、定数関数というのを用いるとインライン展開してくれるらしい。
で、それを自動でやってくれるconstant.pmってあったのね。
知らなかった。
さっそく導入じゃ。