You should use "strict" and "warnings" (see perldoc for more information) to point out common errors. The constant pragma basically defines a sub with an empty prototype, so adding () to the LOG_DEBUG in the object creation may tell if the export works.
hth & good night
Ordinary morality is for ordinary people. -- Aleister Crowley