$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;