C:\Users\Bill\forums\monks>type scope.pl
use strict;
use warnings;
use constant PI => 3.14;
my $pi = PI;
package B{
    my $pi = PI;
}


C:\Users\Bill\forums\monks>perl scope.pl
Bareword "PI" not allowed while "strict subs" in use at scope.pl line 6.
Execution of scope.pl aborted due to compilation errors.