Twitterのツイート（つぶやき）をSkypeのムードに反映させる方法です。
自分はTwitterの他にSkypeとWindows Live MessangerとFacebookを使ってるんですけど、近況報告はもっぱらTwitterだけなんです。
Live MessangerとFaceboookは設定すればツイートをそれぞれのサービスに反映させる機能を標準で持ってるんですが、
Skypeはそれがない。逆はあるのですが（ムード→ツイート）
調べたらSkype4COM.dllを使えば出来そうだったのでやりました。
ちなみに環境はWindows 7 64bitです。Skype4COMは32ビットバイナリですが、次のようにすれば64ビット環境で使えます。
１．
Skype4COMをダウンロードして適当な場所に展開
２．Skype4COM.dll をレジストリに登録
regsvr32 Skype4COM.dll
３．
ActivePerl x86版をダウンロードしてインストール。64ビット環境でもx86版をダウンロードする。
４．必要なモジュールをインストール
> cpan
cpan> install XML::RSS
cpan> install URI::Fetch
cpan> install Date::Parse
５．次のコードを書く（ちなみに私はtweet2skype.plというファイル名にしています）
#!/usr/bin/perl
use strict;
use warnings;
use Win32::OLE;
use URI::Fetch;
use XML::RSS;
use Date::Parse;
use Encode;
my $id = 'TwitterのID';
my $time = time;
my $fetch_response
= URI::Fetch->fetch(
"http://twitter.com/statuses/user_timeline/$id.rss?dummy=$time")
or die URI::Fetch->errstr;
my $rss = XML::RSS->new;
$rss->parse($fetch_response->content);
die 'no items' if @{$rss->{items}} == 0;
my $item = $rss->{items}->[0];
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)
= localtime(str2time($item->{pubDate}));
my $title = $item->{title};
my $mood = substr($title,length($id)+1,length($title));
$mood = Encode::encode('shiftjis', $mood);
my $skype = Win32::OLE->new('Skype4COM.Skype');
$skype->Client->Start unless $skype->Client->IsRunning;
my $profile = $skype->CurrentUserProfile;
$profile->{MoodText} = $mood;
６．定期的に実行されるようにタスクスケジューラを設定する
プログラム/スクリプト C:\Perl\bin\wperl.exe
引数 c:\program\tweet2skype.pl
みたいな感じ。
