use strict;
use XML::Parser;
use LWP::Simple;

my $feed;