use strict;
use warnings;
use Net::Trackback::Client;
use Net::Trackback::Ping;

my $ping = Net::Trackback::Ping->new();
$ping->title('This is test');
#$ping->url('http://rpc.technorati.com/rpc/ping');
$ping->url('http://ping.blo.gs');
$ping->ping_url('http://myblog.blogs.com/2005/09/Just-testing.html');
my $client = Net::Trackback::Client->new();
my $msg = $client->send_ping($ping);
print $msg->to_xml;

##</code><code>##

<?xml version="1.0" encoding="iso-8859-1"?>
<response>
  <error>405</error>
  <message></message>
</response>