use WWW::Mechanize;
use HTML::TableExtract;
$url="http://www.dhl-usa.com/TransitTimes/USTTimeStart.asp?nav=TransitTimes";
$service = "Service";
$arrival = "Arrival Date and Time";
$transit = "Days in Transit*";
my $mech = WWW::Mechanize->new();
$mech->get($url);
$frmSvcCalc = "frmSvcCalc";
$mech->form_name($frmSvcCalc);
$mech->set_fields(
txtOrgZip => "53213",
txtDestZip => "60056",
);
$mech->field( "hdnAction", "Calculate" );
$mech->submit($frmSvcCalc);
my $results2 = $mech->content;
$te = HTML::TableExtract->new( headers => ['Service','Arrival Date and Time','Days in Transit*'] );
$te->parse($results2);
foreach $ts ($te->tables) {
foreach $row (@$ts) {
print join(',', @$row), "\n";
}
}