use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTML::TableExtract;

my $ua = LWP::UserAgent->new(timeout => 10);
my $url = 'http://sdasd.com';
my $request = HTTP::Request->new('GET',$url);
my $response = $ua->request($request);

if ($response->is_success){
   my  $te = HTML::TableExtract->new ( headers => [ 'USER NAME','Trans']);
    $te->parse($response->content);

 foreach my $ts ($te->table_states) {
        foreach my $row ($ts->rows) {
         if ($row !~ "disabled"){
            print @$row;
         }
        }
   }
 }