[Perl] script de "ping" pour technorati et consort

Voici un script de ping pour technorati et consort, au cas où ça interesse quelqu'un pour signaler à ces site la mise à jour de son blog, lorsqu'on gère son blog soit même avec perl.
Notez que pour une raison qui m'échappe, weblogues.com ne répond pas positivement.

#!/usr/bin/perl
#
# Copyright (c) 2006 Mathieu Roy <yeupou--gnu.org>
# http://yeupou.coleumes.org
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
# USA
#
# $Id: perl-template.pl,v 1.5 2006/02/25 14:00:21 moa Exp $

use strict;
use RPC::XML;
use RPC::XML::Client;
use Data::Dumper;
use Unicode::String;


# Config - strings must be valid utf8
my $blogname = "XXXXX";
my $blogurl = "http://XXXXX";
my @servers = ("http://www.weblogues.com/ping",
"http://rpc.technorati.com/rpc/ping",
"http://rpc.weblogs.com/RPC2");


# Run
for (@servers) {
print "Do $_\n";
my $cli = RPC::XML::Client->new($_);
my $response = $cli->send_request('weblogUpdates.ping', $blogname, $blogurl);

print "--> ".(Dumper $response->value)
if ref $response and $response->is_fault;
print "--> ".$response->value->{message}."\n"
if ref $response and !$response->is_fault;
print "--> ".$response."\n"
unless ref $response;
}

PS: Merci yeupou