Log4perl has an easy mode that provides simplified logging functionality in short scripts. Search the docs for "easy mode" and "stealth logger". I've never used it (yet!), but it looks like it is as simple as:

use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init( PARAMS_GO_HERE );
[download]