发送短信: Higher-order Perl