use strict;
use XML::DOM;
use LWP::UserAgent;
use CGI qw/:standard/;
my $zipcode =  param( "zipcode" ) || "27613";
my $searchTerm =  param( "query" ) || "pizza";