Проблема с открытием - Компьютерный форум OSzone.net

Язык программирования Perl.
Программеры помогите с проблемой:
нужно открыть файл с русским названием и с таким же содержанием

Код:

use strict;

use Tk;

use encoding "ru_RU.CP1251";

use Tk::HList;

use Tk::LabFrame;

sub openfile {

    my @types = ( ["Списки пользователей",'.csv'], ["All files", '*'] );

     $file = $mw->getOpenFile(-filetypes => \@types,

                          -initialfile => $file,

                          -defaultextension => '.csv',

                          -title=>'Открыть файл');

     open(FILE,"$file");

     @strings=<FILE>;

     my $line;

     close(FILE);

 }