print "before shiftjis\n"; open( my $fh, "<", "107.shiftjis.txt") or die $!; print join('', <$fh>); close $fh;