Plaggerで新着Feedを検知したら物理的に通知してくれるモジュールのWindows版

Plaggerで新着Feedを検知したら物理的に通知してくれるモジュールを読んで感銘を受けたのでWindows版を書きました。

22c22,29
< system('/usr/bin/eject') if $self->{count};
---
> if ($self->{count}) {
> if ($^O eq 'MSWin32') {
> require Win32::MCI::Basic;
> Win32::MCI::Basic::mciSendString("Set CDAudio Door Open Wait");
> } else {
> system('/usr/bin/eject');
> }
> }

Yappoさんのブログにコメントしようと思ったのですが、Internal Server Errorで書けなかったのでここで。