かま田さんに教えてもらったDebug::EchoMessageですが、Class::DBIみたいに環境変数でログのレベルを変えたいなぁということで、こんな感じで使っています。

#!/usr/bin/perl

use strict;
use warnings;
use Debug::EchoMessage;

my $self = bless {}, "main";
my $debug_level = $ENV{"Debug_Echo_Level"} || 0;
$self->debug($debug_level);

# The level 3 message will not be displayed
$self->echoMSG("This is level 1 message.", 1);
$self->echoMSG("This is level 2 message.", 2);
$self->echoMSG("This is level 3 message.", 3);  

環境変数で設定しておいても、実行する前に変数入れてもOKなかんじ

$ export Debug_Echo_Level=1
$ ./debugtest.pl 
This is level 1 message.

$ Debug_Echo_Level=2 ./debugtest.pl 
This is level 1 message.
This is level 2 message.

$ Debug_Echo_Level=3 ./debugtest.pl 
This is level 1 message.
This is level 2 message.
This is level 3 message.

これで、ファイルをいじらずにデバッグレベルを変えられるし、はかどるはずだ。で、余力はbloglinesのチェックにまわすと。