#!/usr/bin/perl -w
use LWP::Simple;
use HTML::TreeBuilder::XPath;
use Data::Dumper;
use strict;
my $debug=1;
my $base='http://www.msccrociere.it/it_it';
my $url='/Partenza-Crociere/Trova-La-Tua-Crociera.aspx?Reg=CAR&DateF=201211&ddl=n&p=1&';
my $page = get($base.$url) or die $!;
my $p = HTML::TreeBuilder::XPath->new_from_content( $page );
#binmode( STDOUT, ':utf8');

my @trips= $p->findnodes( '//table[@id="tblFYCXML_Itin"]');

        foreach my $trip (@trips){

                my $destination = $trip->findvalue('.//h2[@class="FYCmaneDestXML"]');
                my $shipname = $trip->findvalue('.//div[@class="cContentLeft"]/a/h3');

                print "$destination\n";
                print "$shipname\n";

        }