use strict;
use warnings;
use Tk;
use Win32::Unicode::File;

my $mw = tkinit;
my $path = $mw->getOpenFile();
my $fh = Win32::Unicode::File->new;
if ($fh->open('<', $path) ){
    while (my $line = $fh->readline()){
        print $line;
    }
}