Added args perl script.