#!/usr/bin/perl -w
use strict;
use utf8;

my $file = "C:\\Αντίγραφο\\VOLINFO.TXT";

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