perl -Mutf8::all -MEncode -MEncode::Punycode -E'say encode(Punycode => "It cost me €200!")'