Perl script to program my Uniden BC75XLT scanner