#!/usr/bin/perl -w

use LWP::UserAgent;
use HTML::TableExtract;

$ua = LWP::UserAgent->new();

$url = '##################################';

$request = HTTP::Request->new('GET', $url);

$response = $ua->request($request);

if ( $response->is_error() ) { 
        print "Error-Code    : ", $response->code() ,    "\n";
        print "Fehlermeldung:  ", $response->message() , "\n";
}
else {
    $content = $response->content() , "\n";
}

#open (TEST, '>test.txt');
#print TEST $content;
#close (TEST)

$te = HTML::TableExtract->new( attribs => { id => 'einebestimmteID' } );
$te->parse($content);

open (TEST, '>test.txt');
foreach $ts ($te->tables) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach $row ($ts->rows) {
      print TEST join(',', @$row), "\n";
   }
 }
close (TEST);