##
my $log = MyLogger::->new("apache");
$log->fatal("This should be in the APACHE log");
my $retval = database::do_some_logging();
$log->fatal("This should be in the APACHE log");
####
my $log = MyLogger::->new("database");
sub do_some_logging { $log->warn("This should appear in DATABASE log."); }
####
[empty]
####
FATAL> This should be in the APACHE log
WARN> This should appear in DATABASE log.
FATAL> This should be in the APACHE log