sub convert_ansi_to_utf {

my $types = [ ['Text', '.txt'],
              ['All Files',   '*'],];
my $filename= $frame_kwic_setup->getOpenFile(-filetypes => $types);

    open(F, "<:encoding(iso-8859-1)", "$filename") or die $!;
    open(G, ">:utf8",                 "$filename.utf.txt") or die $!;
    while (<F>) { print G }
close (F);
close (G);

}