Net::Oscar is a pure Perl implementation of the OSCAR protocol used by ICQ and AIM instant message clients.