my  $feed = XML::Feed->parse(URI->new($url))
    or die "Feed error with [$url] " . XML::Feed->errstr;

print 'Feed title is ', $feed->title, "\n";    # ADD THIS LINE