#!/usr/bin/perl -w
use strict;
use Encode qw(from_to);
use Encode::Byte;

my $file = "C:\\Αντίγραφο\\VOLINFO.TXT";
from_to($file, "utf8", "cp1253");

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