#!/usr/local/bin/perl use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/HTML\n\n"; require "/usr/home/allpro/www/htdocs/cgi-lib.pl"; &ReadParse(); print "","\n\n"; print "","\n"; &PrintHeader(); &PrintZIP(); sub PrintZIP { print <<"ZIP_FORM"; ALL PRO ADJUSTABLE WEIGHTS

Find the store closest to you!

To search by zipcode:
Please enter your 5 digit zip code:

To search by city/state:
Please enter city and click on a state from the drop down box!
Please enter at least 3 characters of the city name!

City: State:

ZIP_FORM }