perl -le 'print "\xa1"'