added perl impl
Merge pull request #11 from Avitella/master

added perl impl