Or you can use:

• use open qw(:std :utf8);
  [download]

•  open my $fh,'<', $input_file or die "can't open file:$!";
   binmode $fh,":encoding(UTF-8)";
   ...
  [download]