kayacを通して，iPhoneへPush配信するPerl用スクリプト - View it on GitHub