Modified genbank perl script call after staging test problem