Added perl file and updated readme