#!/usr/bin/perl

use strict;
use warnings;
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);

print "Content-type: text/text\n\n";
 
foreach my $row ($table->rows) {
    print @$row;
}

##</code><code>##

 info
                  
                    john
                  
              
              
                
                100 - 2000
                
              
            
                
                  kent


##</code><code>##

data:info john:200 kent:2000