Perlで日本語のファイルを読み込む

#!/usr/bin/perl
use utf8; 
binmode(STDOUT, ":utf8");

while (my $line = <STDIN>){
  utf8::decode($line);
  chomp($line);
  echo $line;
}