Fix perl dtrace
Merge pull request #331 from pyhalov/4248

Fix perl dtrace