Add compute idf perl script