update perl script for otm8019