perl -e"print qq(\xe4)"