open( my $output_handle, '>:utf8', $output_name ) or die $!;