There's also the lovely if module.
Example:

use constant DEBUG => 1;
use if (DEBUG), 'CGI::Carp' => 'fatalsToBrowser';
[download]

--
Rock is dead. Long live paper and scissors!