#! perl -slw
use strict;
use LWP::Simple;
use HTML::TableExtract;

my $te = new HTML::TableExtract;
$te->parse( get( 'http://www.sailwx.info/shiptrack/cruiseships.phtml' ) );

for my $table ( $te->tables ) {
    print "\n-----------\n";
    for my $row ( $table->rows ) {
        local $^W;
        print join '|', @$row;
    }
}