use strict;
use warnings;
use HTML::TableExtract;
use LWP::Simple;
my $html = get("http://www.risa.com.au/FreeFields/Results.aspx?Key=2013Aug19,VIC,Echuca");
my $te = HTML::TableExtract->new;
$te->parse($html);
# Table parsed, extract the data
binmode STDOUT, ":utf8";
foreach my $table ( $te->tables ) {
        foreach my $row ($table->rows) {
        my @values = grep {defined} @$row;
        print "   ", join(',', @values), "\n";
	    }# Foreach
	   
    }# Foreach