*var = \3.14159; our $var; print $var; [download]
In reply to Re: Typeglobs and constant variables by choroba in thread Typeglobs and constant variables by Anonymous Monk