sub url_encode {
	my $string = shift;
  
	$string =~ s/([^a-z0-9_.!~*'() -])/sprintf "%%%02X", ord($1)/egi;
	$string =~ tr/ /+/;
  
	return $string;
}