Perl&ICQ

я уже это пробовала, и Net::ICQ и Net::ICQ2000, ничего...в Net::ICQ все зависает намертво...

У Аси есть обычный вариант отправки: типа script.pl?uin=1111233&text=any_text
хотелось бы примерчик кокой нибудь....

хотелось бы примерчик какой нибудь...я нашла статью про LWP, примерно разобралась, но хочется на код какой нибудь посмотреть

А с Net::Jabber кто нибудь работал?

Ну чего то для psi когда-то делал.

А что насчет LWP, разобрались???

Насчет LWP тек ничего и не сделалаЮ, но после долгих мучений появилось вот что:
#!/usr/local/bin/perl -w

use Net::Jabber;

my $server = 'имя сервера';
my $port = 5222;
my $username = "от кого";
my $password = "******"
my $component='кому';
my $resourse ='perl script например, по моему убеждению все равно что писать';
my $Client = new Net::Jabber::Client;

my $status = $Client->Connect(hostname=>$server, port=>$port);

if (!(defined($status))) {
print "ERROR: Jabber server $server is not answering.\n";
print " ($!)\n";
exit(0);
}

print "Connected...\n";
my @result = $Client->AuthSend(username=>$username, password=>$password, resource=>$resourse);
if ($result[0] ne "ok") {
print "ERROR: $result[0] $result[1]\n";
}

print "sending...\n";
sleep(1);
$Client->MessageSend(to=>$component, body=>"this is a test... a sucessful test...");
print "disconecting...\n";
$Client->Disconnect();
Это работает. Всем спасибо