I'm not aware of one, though the Net::OSCAR module would come in handy. I did a bit of work on ICQ 2000 support in Perl (logging in, sending messages), and it's built around the same protocol as the one used in AIM.
Yeah, probably, I read about OSCAR protocol and saw that ICQ uses the same protocol but I am not sure about it. I tried to use OSCAR protocol from GAIM and it didn't work. I will try Net::Oscar.
Thanks a lot for your help. I've tested Net::OSCAR. The only one thing to write is converters to differen icq contact list formats as licq/micq/gaim...
I wrote a simple perl script to get my contact list and save it in the format of gaim (available at sourceforge.net).
But the problem is that Net::OSCAR doesn't want to tell you nicknames of people offline. And you have manually click 'get info' and 'change alias' in you gaim client to change numbers to names in contact list. I also added a function to perl.c in the source tree of gaim to make it possible to rename buddies using perl script. I need to debug it or check if I'm doing it in proper way because it doesn't work right now except for my own number.