Select Code to Download

#!/usr/bin/perl

...
open my($in), "<:encoding(japhy)", "input" or die $!;
open my($out), ">:encoding(japhy)", "output" or die $!;
print $out $_ while <$in>;

< abc
< def

> abc
> def

open my($in), "<&:encoding(japhy)", "STDIN" or die $!;
open my($out), ">&:encoding(japhy)", "STDOUT" or die $!;

< > abc
< > def

open my($in), "<-:encoding(japhy)" or die $!;
open my($out), ">-:encoding(japhy)" or die $!;

Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
  Platform:
...
    /usr/local/lib/site_perl
    /usr/local/lib/perl/5.8.7
    /usr/local/share/perl/5.8.7