#!/usr/bin/perl 

use HTML::TableExtract; 
use WWW::Mechanize;
use Data::Dumper;

use strict; 
use warnings;

my $sensational = WWW::Mechanize->new( autocheck => 1 ); 
$sensational->get('http://www.drudgereport.com/');

chomp(my $html = $sensational->content); 

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

#$table->tables_dump;

my $t = $table->first_table_found; 

#print $t->cell(0,1);        # works fine

# each of these generate a 'row ARRAY(...) out of range (0)' message
#print $t->column(1), "\n";  
#print for $t->column(1);    
#print Dumper $t->column(1);
$t->column(1);