perl -CS -le 'print "\xa1"'