perl script that compute metrics
perl scripts for computing some metrics