#!/usr/bin/perl

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

open (OUT, ">resultat.txt");
open FH, 'lee-morgan.html' or die $!; 

my %res =();

my $data = do{ local $/; <FH>}; 
my $artists = scraper

{
	process '.header-bar-inner > h2', artist => 'TEXT'; 
	process '.recording-dates > h3', date => 'TEXT'; 
	process '.release-height > p', 'bio[]' => 'TEXT'; 
};


my $res = $artists -> scrape ( $data ); 

#print OUT Dumper $res;

print OUT Encode::encode ("utf8", $res->{artist}."\n".$res->{date}."\n" );

for my $val(@{$res->{bio}})
{
	print OUT $val."\n";
}
close (OUT);