#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use HTML::TableExtract;
use LWP::UserAgent;


my $ua = LWP::UserAgent->new;
 
my $req = HTTP::Request->new(GET => '');
 
my $res = $ua->request($req);
my $html = $res->decoded_content;

my $table = HTML::TableExtract->new();
$table->parse($html);
my $row = $table->rows;

print "Content-type: text/text\n\n";
my $foo = 0; 

foreach (@$row){
    s/\A\s+//;
    s/\s+\z//;
}


print Dumper($row);