#!/usr/bin/perl -w use strict; use LWP::Simple; use XML::Simple; use HTML::Entities; my $url = 'http://api.technorati.com/cosmos?key=XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX&url=http://jeremy.zawodny.com/blog/&type=weblog&format=xml'; my $xml = get($url); #print "$xml\n"; my $info = XML::Simple::XMLin($xml); my $data = $info->{document}->{item}; use Data::Dumper; #print Data::Dumper->Dump([$info]); for my $item (@$data) { my $name = encode_entities($item->{weblog}->{name}); my $url = $item->{weblog}->{url}; my $rss = $item->{weblog}->{rssurl}; print qq[
]; print qq[\n]; print qq[$name
]; print "\n"; } exit;