perl -we 'print ord ("k"), $/;'