#!perl -w
use strict;

use Tk;

my $main = new MainWindow;

my $entry = $main->Entry(-show => '*')->pack;

MainLoop;