perl -MO=Deparse,-p -e 'print "\x{A}"'