(Perl) a simple wrapper around Log::Dispatch