First commit of firechasers perl script