#!/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";
}


##</code><code>##

Trip name: Fiordi norvegesi e grandi città del Baltico
price: € 2.615,00
Includes: Crociera + Volo
 Itinerario : Danimarca, Estonia, Russia, Finlandia, Svezia, Norvegia
Data partenza:  7 luglio 2012 
 Nave : Costa Luminosa
 N.ro giorni crociera   : 14
 Porto di partenza : Copenhagen
 Documenti di viaggio : Passaporto
Picture: http://www.costacrociere.it/B2C/Images/ItineraryV4/CPH11040__it-IT.gif#CPH11040