Идея витает в воздухе давно, есть несколько реализаций разной степени запущенности.
Большинство использует Net::XMPP и Net::Jabber и имеют проблемы.
Этот скрипт использует AnyEvent::XMPP и основан на примере в исходниках оного.
Работает.
( #!/usr/bin/perl )
| ← Previous day | (Calendar) | Next day → |