use Tk;
my $main = new MainWindow(-title => "Global Testing");
$main->bind("<KeyPress>", sub {print "Hello there!"});
MainLoop;