use WWW::Mechanize::Firefox;

my $firefox = WWW::Mechanize::Firefox -> new (
);

$firefox -> get("http://feeds.cbsnews.com/podcast_eveningnews_video_1?tag=contentMain%3bcontentBody");
print $firefox->ct;

print $_->{innerHTML} for $firefox->selector('a');

print $_->{innerHTML} for $firefox->xpath('//a');