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


##</code><code>##

binmode $inhandle, ':encoding(EBCDIC)';
while (<$inhandle>) {
    print $outhandle $_;
}