# Foo.pm package Foo; use Log::Log4perl qw(:easy); sub foo { DEBUG "Fooing the database"; }