use Readonly; Readonly my $PI => 4 * atan2(1, 1); Readonly my $DEBUG => 0;