Perl pragma to declare constants