use strict; use warnings; use encoding "cp932"; binmode STDERR, ':encoding(cp932)'; print "こんにちは\n"; print "図表\n";