Perl環境でSIPを動かせる"Net::SIP"モジュールがある事を教わった。Net::SIP http://search.cpan.org/~sullr/Net-SIP-0.54/ 通常の発着信だけでなくプレゼンス機能もサポートしているみたい。