fix up the perl code cleanup
Merge pull request #20 from coolo/master

fix up the perl code cleanup