use Encode;

my $buf;
open (my $fh, "< slurp1");
read( $fh, $buf, -s FH );
close $fh;

my $file = decode('utf8', $buf);

# now just insert $file into the Tk::Text widget