Started working on perl script