Perl Best Practices ネタ。 constant より Readonly の方が使い勝手が良い。Readonly で宣言した変数は引数展開される use strict; use warnings; use Readonly; use constant NAME => q{cooldaemon}; Readonly my $SEX => q{man}; print "NAME $SEX?n"; # …