#!/usr/bin/perl
# Global grab example
use warnings;
use strict;
use Tk;

my $mw=MainWindow->new(-title=>'Global grab window');

$mw -> Button ( -text=>"Action", 
                -command=>sub { print "Magic!\n" } )
                   -> pack(-anchor=>'nw', -side=>'top');

$mw -> Button ( -text=>"Exit", -command=>sub { exit } )
  -> pack(-anchor=>'nw', -side=>'top');

$mw->geometry("200x200+200+200");

$mw->after(500,sub {$mw->grabGlobal});

$mw->focusForce;

MainLoop;
[download]