my $xml_parser = XML::Smart->new($res->content);

print $xml_parser->{feed}->{'openSearch:totalResults'},"\n";

foreach my $entry (@{$xml_parser->{feed}->{entry}}) {
	printf('%s - %s%s',$entry->{'title'},$entry->{'gd:etag'},"\n");
}