Can you provide the source code for OTA MMS Settings using Perl script