Select Code to Download

  foreach my $e ( @{$data->{channel}[0]{items}} ) {
   ...
   print $e->{title}[0] ...
  }

my $rss = XML::RSS->new( version => '2.0' );
my $rss->parse( $rss_xml );
...
  print "link: $item->{link}\n";
  print "desc: $item->{description}\n";
}