# subroutine name: safe
# URL-encode [;,% \\"'\[\]\x00-\x1F] characters in string
sub safe {
	my($toencode) = @_;
	$toencode=~s/([;,% \\"'\[\]\x00-\x1F])/uc sprintf("%%%02x",ord($1))/eg;
	return $toencode;
}