Select Code to Download

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

$url="http://www.dhl-usa.com/TransitTimes/USTTimeStart.asp?nav=Transit
+Times";
 $service = "Service";
$arrival = "Arrival Date and Time";
...
      print join(',', @$row), "\n";
   }
 }

my $te = HTML::TableExtract->new( headers => [qw($service $arrival $tr
+ansit)] );
...
      print $cell;
    }
}