#!/usr/bin/perl -w 
 
use strict; 
use warnings; 
use utf8; 
use XML::Parser; 
use LWP::Simple; 
 
my $ruta; 
 
$ruta = "http://www.elpais.com/rss/feed.html"; 
my $re = get($ruta); 
 
my $nuevofichero; 
$nuevofichero='file.xml'; 
open(NEWFILE, ">>$nuevofichero") || die("impossible to open file : $nuevofichero"); 
 
print NEWFILE $re;  
my $p; 
 
$p = new XML::Parser(Style=>'Subs', 
			Pkg=>'Este'); 
$p->parse($re); 
exit; 
package Este;  
my $message; 
sub category{ 
	my ($pkg,$element,%attr) = @_; 
       #what does this line? I only saw that element or message contains "category" 
	$message = \%attr; 
	print $element; 
} 
sub _category{ #for tag </category> 
 
}