!/usr/bin/perl -T
$| = 1;

use strict;
use warnings;
use XML::RSS;
use LWP::Simple;
use POSIX qw(strftime);

my $there_is_a_feed_to_be_read = "true";
my $url_to_read = "http://xxx.xml";
my $url2parse;
my $rss;

while ( $there_is_a_feed_to_be_read ) {
  $rss = new XML::RSS;
  $url2parse = get( $url_to_read );
  die "Could not retrieve $url_to_read" unless $url2parse;

# all works up to this point but if there is an error in the
# XML being read the next command chokes.
# What I am looking for is some sort of wrapper to do a next
# if there is a problem so we just step over the faulty feed

  $rss->parse($url2parse);

# deal with the returned XML information here
# .
# .
# .

}