RosettaCodeData/Task/Enforced-immutability/Perl/enforced-immutability-1.pl

use constant PI => 3.14159;
use constant MSG => "Hello World";