Apache::Log has a method for reading the loglevel, and it provides a number of methods that will log at certain LogLevels. It's for use with mod_perl, though, and I don't think you can use it with CGI (which is, I take it, a constraint here. If not, well, now you're golden =)

You could also poke through the mod_perl code (the Apache::Log code isn't forthcoming) and figure out how it finds out. HTH.

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); 
+$rose = "smells sweet to degree $n"; *other_name = *rose; print "$oth
+er_name\n"'
[download]