#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit();
$mw->Entry()->pack();

$mw->grabGlobal();

MainLoop;