如何在Strawberry Perl中使用unicode读取一个带有长文件名的文件

use Win32::Unicode::File;
    # Some code left out....
    $fname = $mw -> getOpenFile(-filetypes=>$types);
    my $fh = Win32::Unicode::File->new;
    $fh->open('<',$fname);

getOpenFile例程来自Tk.现在由于某种原因,Win32 :: Unicode :: File有一些我不能忍受的不幸副作用(它吃掉了我的记忆,见“Out of memory” with simple Win32::Unicode::File readline loop and Strawberry Perl).现在如果我尝试在没有Win32 :: Unicode :: File接口的情况下打开文件,我会找不到找到的文件.原因是路径被错误地解释了.我已经尝试根据Perl: managing path encodings on Windows转换路径,由于某种原因这不起作用.我该怎么解决这个问题？我尝试过以下方法：

use Encode;
    # Some code left out....
    $fname = $mw -> getOpenFile(-filetypes=>$types);
    my $fh;
    open($fh,'<',encode("utf8",$fname,Encode::FB_CROAK));

它不起作用.有任何想法吗？

如果我不清楚,请原谅我.

亲切的问候,
迈克尔