#! /usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new();
my $textvar = "Test";

my $entry = $mw->Entry(-textvariable => \$textvar)->pack();

MainLoop;