perl -MDOS::Try -e"print qq(\xe4)"