$ perl -Mwarnings -E 'say chr(49)'
1