use Path::Class;

my $filename = "data.txt";
my $handle = file($filename)->open('<:encoding(UTF-8)');
while (<$handle>) {
	chomp($_);
	print $_,"\n";
}
close($handle);