use strict;
use warnings;
use Tk;
use utf8;

my $mw = Tk::MainWindow->new;
$mw->minsize(300, 250);

my $entered;
my $entry = $mw->Entry( -textvariable => \$entered, -width => 75, -takefocus => 1 )->pack();
$entry->focus( -force );

open (OUT, ">>:encoding(UTF-8)", "_entered.txt");

my $go = sub {
print OUT "$entered\n";
};

my $buttgo = $mw -> Button(	-text=>"Go",
										-command => $go 
									) -> pack();

				$mw->bind( '<Return>', $go );

my $buttexit = $mw -> Button(	-text=>"Exit",
										-command => sub {exit},
									) -> pack();


Tk::MainLoop();