$ perl -MEncode -e'@list = Encode->encodings("EBCDIC"));print "@list $/"'