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

##</code><code>##

Can't call method "getNodeValue" on an undefined value at /Library/WebServer/CGI-Executables/WebYahoo.pl line 54.
[Wed Apr 26 16:46:44 2006] [error] [client 24.106.190.114] Premature end of script headers: /Library/WebServer/CGI-Executables/WebYahoo.pl

##</code><code>##

		$title = $result->getElementsByTagName('Title')->item(0)->getFirstChild->getNodeValue;
		$addr = $result->getElementsByTagName('Address')->item(0)->getFirstChild->getNodeValue;
		$phone = $result->getElementsByTagName('Phone')->item(0)->getFirstChild->getNodeValue;