Select Code to Download

Subroutines whose names are in all upper case are reserved to the Perl
core, as are modules whose names are in all lower case.

SYNOPSIS
           use constant PI    => 4 * atan2(1, 1);
           use constant DEBUG => 0;