Код:

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);
 }