use WWW::Mechanize::Firefox;

my $firefox = WWW::Mechanize::Firefox -> new (
  tab=>"current",
);

$firefox -> get("http://feeds.cbsnews.com/podcast_eveningnews_video_1?tag=contentMain%3bcontentBody");
$firefox -> click ({selector => 'a'});

<>;