#!perl

use strict;
use warnings;
use autodie qw( open close );

my $in_file  = 'E:/Perl/Practice/TestIn.txt';
my $out_file = 'E:/Perl/Practice/TestOut.txt';

open my $in_fh,  '<:encoding(UTF-8)', $in_file;
open my $out_fh, '>:encoding(UTF-8)', $out_file;

# Do groovy stuff with the text...

close $in_fh;
close $out_fh;

exit 0;