Starting work on better logging using Log::Log4perl