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
Merge pull request #649 from qnet-herwin/cleanup_constants_perl

Minor cleanup of perl example script