Select Code to Download

#!perl

...
}

exit 0;

use File::BOM qw( open_bom );

open my $input_fh, '<:via(File::BOM)', $input_file;
open my $output_fh, '>:encoding(UTF-8):via(File::BOM)', $output_file;