There's also a constant pragma:

use constant PI        => 4 * atan2 1, 1;
use constant DEBUGGING    => 0;

print "This line does nothing" unless DEBUGGING;
[download]

(shamelessly ripped from the perldoc page :)