Added script

Initial commit of perl script