sub urlencode($){
	($_)=@_;
	s/(\W)/sprintf("%%%02X",unpack("C",$1))/eg;
	s/\%2E/\./g;
	s/\%2F/\//g;
	return($_);
	}