$ perl -MData::Dump -MConvert::EBCDIC -e " dd Convert::EBCDIC::ascii2ebcdic(qq{hi\n}); "
"\x88\x89%"

$ perl -MData::Dump -MConvert::EBCDIC -e " dd Convert::EBCDIC::ascii2ebcdic(qq{\r\n}); "
"\r%"

$ perl -MData::Dump -MConvert::EBCDIC -e " dd Convert::EBCDIC::ascii2ebcdic(qq{\n}); "
"%"