#!/usr/bin/perl
use strict;
use warnings;

use utf8;

my $greek_file = '/path/to/greek.file';
open my $fh, '<:encoding(UTF-8)', $greek_file or die $!;
print <$fh>;
close $fh;