Select Code to Download

Select or download this

use WWW::Mechanize;
use Data::Dumper;
...
$amazon_parameters = $mech->post("https://zipcodedownload.com/customer
+/DownloadProdCut",filename=>"$foundit", Content_type=>'application/x-
+www-form-urlencoded');
print $mech->success();
print Data::Dumper->Dump([$amazon_parameters],[qw(a*)]);

Select or download this

POST https://zipcodedownload.com/customer/DownloadProdcut HTTP/1.1
Host: zipcodedownload.com
...
Cache-Control: no-cache

filename=WstR8%252baW3oKaUe69z3dsh%252f2MdaofcaimgKF5jkLsglXb25Hu4oNg8
+WKsht35ARX0BphaEq%252bN7NHMwomQra8VJg%253d%253d

Select or download this

HTTP/1.1 200 OK
Cache-Control: private
...
Content-Length: 192

{"Status":true,"Url":"http://zipcodedownload.s3.amazonaws.com/jun2012_
+z5c6combined_csv.zip?AWSAccessKeyId=############2XFX6WA&Expires=13401
+29914&Signature=jc7OMAiQ9CBc4CEsM%2FvmLEQF%2B2Q%3D"}