#!/usr/bin/env perl

use strict;
use warnings;

my $test_file = "test.txt"; #ISO-8859 / UTF-8 codiert
my $test_handle;

open($test_handle, "<:encoding(UTF-8)", "$test_file");

while(my $line = <$test_handle>) {
    print($line);
}