#!/usr/bin/perl
use XML::RSS;
my $file="$ARGV[0]";
my $rss=new XML::RSS;
#-----------------------------------------------------------
my $TEXTEDUFIL="";
$TEXTEDUFIL.="<FILE=\"$file\">\n";
#-----------------------------------------------------------
$rss->parsefile($file);
my $nombredechampdescription=0;
foreach my $item (@{$rss->{'items'}}) {
    $nombredechampdescription++;
    $TEXTEDUFIL.="<article=\"$nombredechampdescription\">\n";
    my $description=$item->{'description'};
    $TEXTEDUFIL.="§ ".$description."\n";
}
#----------------------------------------------------------
print $TEXTEDUFIL;
