use URI;
use Web::Scraper;
use Encode;
use Data::Dumper;

open (OUT, '>LM_Article.txt'); 

my $resultat = scraper 
{
    process '//body[@id="artists"]', 'entree[]' => scraper  
{   
    process '//div[@class="header-bar-inner"]/h2', artiste => 'TEXT'; 
    process '//div[@class="release-height"]/div[@class="recording-      dates"]', titre => 'TEXT'; 
};

my $resultat2 = scraper 
{
    process '//div[@class="release-height"]', 'entree[]' => scraper     
{   
    process '//div[@class="release-height"]/p', texte =>'TEXT';
}; 
} 

my $res = $resultat.$resultat2 ->scrape( URI-   >new("http://www.bluenote.com/artists/lee-morgan") );

for my $val (@{$res->{entree}})
{ 
    print OUT Encode::encode ("utf8", $val->{artiste} . "\n" . $val->    {titre} . "\n" . $val->{texte} . "\n");
}

close (OUT);