如何发短信？

用串口连接一个短信modem但是我写的perl无法发短信:
open (SEND,"+>/dev/ttyS0");
print SEND ("AT+CMGF=1\nAT+CMGS=131******\nHI,WECOME!!!\X1A")
close SEND;
运行这个脚本,没有任何反应.过了很久就回到shell.
请教具体如何实现.