Minor cleanup of perl example script

- Define logging constants in a hash context
- Don't prefix method calls with ampersands, nobody does that these days