Help for this page

Select Code to Download


  1. or download this
    $ perl -MEncode -e'@list = Encode->encodings("EBCDIC"));print "@list $/"'
  2. or download this
    binmode $inhandle, ':encoding(EBCDIC)';
while (<$inhandle>) {
    print $outhandle $_;
}