Or just do it the old-fashioned way if all you need is constant scalars and you don't care if they are globals. Since, I find I often want my constants to be global and I rarely need a constant array or hash, this works very well for me. And on those rare occassions when I do have a need for a constant array (or hash), I never need to interpolate them... so use constant generally works just fine in those cases.

*PI = \3.14159; 
*SLOGAN = \q(Don't tread on me!);
[download]

-sauoq
"My two cents aren't worth a dime.";