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