#!/usr/bin/perl -w
use strict;
use Unicode::String qw(utf8 latin1 utf16);

my $u = utf8("C:\\Αντίγραφο\\VOLINFO.TXT");
my $file = $u->utf16;

open FILE, $file or die "can't open $file: $!";
while (<FILE>) {
}
close FILE;