in reply to Cooperating with Apache Log Levels

If your program is running under mod_perl, you can: 

use Apache::Log ();
my $rlog = $r->log;
$rlog->debug("You only see this if `LogLevel' is set to `debug'");

[download]

In Section Seekers of Perl Wisdom