print JSON->can($parameter{json_charset})->(JSON->new)->encode(\%hash);