Ошибка с XML::RSS::Parser

my $url = 'http://www.url.to.rss.xml';
my $p = XML::RSS::Parser->new;
my $feed = $p->parse_uri($url);
my $feed_title = $feed->query('/channel/title');

my $url = 'http://www.url.to.rss.xml';
my $p = XML::RSS::Parser->new;
my $txt = get($url);
my $feed = $p->parse_string($txt);
my $feed_title = $feed->query('/channel/title');

 use strict;
 use XML::RSS::Parser;
 use LWP;
 my $url = 'http:// ....... file.xml';
my $p = XML::RSS::Parser->new();
my $ua = LWP::UserAgent->new();
my $response = $ua->request(HTTP::Request->new(GET => $url));
my $txt = $response->decoded_content ;
#  Работаете с $txt
my $feed = $p->parse_string($txt);
 my $feed_title = $feed->query('/channel/title');
 print $feed_title->text_content;
 my $count = $feed->item_count;
 print " ($count)\n";
 foreach my $i ( $feed->query('//item') ) { 
     my $node = $i->query('title');
     print '  '.$node->text_content;
     print "\n"; 
 }

#!perl
 
use strict;
use XML::Simple;
use Data::Dumper;
use LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://www.fishnet.ru/news/rss.xml');
my $txt = $ua->request($req)->as_string;
$txt =~ s/.*?(<\?xml.*)/$1/s;
my $rss = XMLin($txt);
print Dumper($rss), "\n";

use strict;
 use XML::RSS::Parser;
 use LWP;
 my $url = 'http://www.fishnet.ru/news/rss.xml';
my $p = XML::RSS::Parser->new();
my $ua = LWP::UserAgent->new();
my $response = $ua->request(HTTP::Request->new(GET => $url));
my $txt = $response->decoded_content ;
#  Работаете с $txt
my $feed = $p->parse_string($txt);
 my $feed_title = $feed->query('/channel/title');
 print $feed_title->text_content;
 my $count = $feed->item_count;
 print " ($count)\n";
 foreach my $i ( $feed->query('//item') ) { 
     my $node = $i->query('title');
     print '  '.$node->text_content;
     print "\n"; 
 }