#!/usr/bin/perl

use WWW::Mechanize;
use HTML::TableExtract;

sub parse {
	$mech = WWW::Mechanize->new(autocheck => 1);
	$mech->get("file:///home/cafaro/omertascript/test.html");
	$content = $mech->content();
 	
 	$te = HTML::TableExtract->new(depth => 0);
	$te->parse($content);
	$table = $te->first_table_found;
	$tree = $table->tree;
	
	print $tree->cell(0,0);
}

parse();