use Log::Log4perl qw/ get_logger /;
...
get_logger("Winmail")->info("yay!");
...
get_logger("Failmail")->info("boo!");
...
get_logger("Bobmail")->info("get to work!");