Select Code to Download

my $tainted_selection    = $q->param( 'Selection' )    || ''; # select
my $tainted_urbanization = $q->param( 'urbanization' ) || ''; # hidden
...
my $tainted_state        = $q->param( 'state' )        || ''; # select
my $tainted_zipcode      = $q->param( 'zipcode' )      || ''; # text
my $tainted_submit       = $q->param( 'Submit' )       || ''; # image

http://www.usps.com/zip4/zip4_response.jsp?Selection=1&urbanization=&f
+irm=&address=&address1=222%20Washington%20Drive&address2=&city=Portla
+nd&state=OR&zipcode=&97212