sub getURL
{
	my($url, $thegoods,$givecookie,$savecookie,$redirect) = @_;
	my $ua=new LWP::UserAgent;
	my $request;
	
	$request = new HTTP::Request('GET',$url);
	
	
	my $response=$ua->request($request);
		
	print $response->as_string();
}