#!/usr/bin/perl
use strict;
use warnings;
use Log::Handler;
my $log = Log::Handler->new();
$log->add(
screen => {
maxlevel => "info",
category => "Foo"
}
);
$log->info("Hello World!");
package Foo;
$log->info(__PACKAGE__);
package Foo::Bar;
$log->info(__PACKAGE__);
package Foooo;
$log->info(__PACKAGE__);