$nomefile="file.html"; ### name of temporary filename
unlink $nomefile; ### remove the file
$url="http://www.sitename.com/pagespecial.html";
$mech->get($url);
$mech->save_content($nomefile); ### Instr i would like to change
use WWW::Mechanize;
use HTML::TableExtract;
use HTML::Entities;
use Text::Unidecode;
$user_agent='Mozilla/5.0 (Windows; U; Windows NT 6.1; nl; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13';
my $mech = WWW::Mechanize->new(agent => $user_agent);
my $headers = ['col1', 'col2', 'col3', 'col4', 'col5'];
my $table_extract = HTML::TableExtract->new(headers => $headers);
$table_extract->parse_file($nomefile); ### Inst i would like to change
my ($table) = $table_extract->tables;