#!/usr/bin/perl -w
use LWP::Simple;
use HTML::TreeBuilder::XPath;
use Data::Dumper;
use strict;
my $debug=1;
my $base='http://www.costacrociere.it';
my $url='/it/lista_crociere/capitali_nord_europa-201207-2.html';
my $page = get($base.$url) or die $!;
my $p = HTML::TreeBuilder::XPath->new_from_content( $page );
binmode( STDOUT, ':utf8');
my @trips= $p->findnodes( '//div[@class="info-cruise"]');
foreach my $trip (@trips){
my $title = $trip->findvalue( './/div[@class="sx"]/h3');
print "Trip name: $title\n";
my $price = $trip->findvalue( './/span[@class="new-price"]');
print "price: $price\n";
my $includes = $trip->findvalue('.//p[@class="info-price"]/span[6]'); #I added this line
print "Includes: $includes\n";
foreach my $info ( $trip->findnodes( './/p[@class="itinerari-info"]//span[@class != "note" and @class != "strike"]')){
my $info_title= $info->findnodes( './b')->[0];
print $info_title->as_text();
$info_title->detach;
my $info_value= $info->as_text;
print ":", $info_value, "\n";
}
my $pic = $trip->findvalue('.//img[@class="image_map"]/@src'); # I added this line.
print "Picture: $base$pic\n";
print "\n";
}