文字コード in Perl

use utf8;
use open ':utf8';
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';

最近ちょっとした入出力があるスクリプト書く時でも前にこんなん書くのが面倒だと感じる。