#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Log::Handler;
my $log = Log::Handler->new();
$log->config(config => "logger1.conf");
$log->warning("foo");
$log->info("foo");
print "--------------------------------------\n";
$log->reload(config => "logger2.conf") or die $log->errstr;
$log->warning("bar");
$log->info("bar");