Why don’t you change the mode by “AT!USBCOMP?” ? I am not sure if those perl script is officially supported…
BTW, does this help?