#!/usr/bin/perl

use strict;
use warnings;

use HTML::TableExtract;
use Data::Dumper;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;

my $response = $ua->get('http://www.sis-handball.de/sis/handball/View2.aspx?LIGA=001507502505000000000000000000000002000&SPIEL=0&STYLE=/sis.css');

my $te = HTML::TableExtract->new( headers => [qw(Nr Datum Zeit Heim Gast Tore Punkte)] );
$te->parse($response);

foreach my $ts ($te->tables) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach my $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
}