perlで定数を宣言するには？

#!/usr/bin/perl
use constant TEISU => 777;
use constant {
HOGE => 'あああ',
HAGE => 'いいい'
};

#!/usr/bin/perl -l
*TEISU=\777;
*KENSAKU=\(quotemeta 'てすと');
print $TEISU;