用perl脚本写的串口通信程序，功能很齐全。