http://www.dhl-usa.com/TransitTimes/USTTimeRslts.asp?nav=TransitTimes&oz=53213&oc=1&oh=ORD&dz=60056&dc=1&dt=1/9/2006&tt=1&hy=&zn=2&am=Y  


##</code><code>##

$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;
print OUTFILE $results2;


$te = HTML::TableExtract->new( headers => [qw($service $arrival $transit)] );
$te->parse($html_string);

foreach $ts ($te->tables) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
 }


##</code><code>##


my $te = HTML::TableExtract->new( headers => [qw($service $arrival $transit)] );
$te->parse($html_string);

   foreach my $row ($te->rows) {
    foreach my $cell (@$row) {
      print $cell;
    }
}