Select Code to Download

$mech->get('https://www.uspspostalone.com/fullservice/downloadAcsRepor
+tSearch.html');
print $mech->status();

#! /usr/bin/perl

...
#my $response5 = $ua->get ('https://www.uspspostalone.com/fullservice/
+downloadAcsReportSearch.html');

#the last link above is the page I need to end up at. I commented this
+ out for now

<script language="javascript"> 
function expendEvent(index)
...
}
</script>