定数のつくりかた

use strict;

*PI = \3.141592;
print $main::PI,"\n";

#上書きしようとするとエラー => 定数！
#our $PI = 1234;
#print $PI,"\n";