use constant PI => 4 * atan 1, 1;

## or as i prefer
# sub PI() { 4 * atan 1, 1 }