Added the perl file and updated the readme