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