added ldblocks perl script