$UserAgent = new LWP::UserAgent;
	$UserAgent->timeout(10);
	$UserAgent->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.5) Gecko/20041107 Firefox/1.0");
	
	$MyRequest = HTTP::Request->new('GET',"$URL");
	$MyResponse = $UserAgent->request($MyRequest);

	if ($MyResponse->is_success) {
		$FContent = $MyResponse->content;
		$FCode = $MyResponse->code;
		$FBase = $MyResponse->base;
	} else {
		$FContent = "";
		$FCode = $MyResponse->code;
		$FBase = "";
	}