#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw= tkinit;

$mw->bind('<Motion>' => [\&show_position,$mw]);

MainLoop;

sub show_position{
  my $widget = shift;
  my $x = $widget->pointerx;
  my $y = $widget->pointery;
  print "$x $y\n";
  # ($x, $y) = $widget->pointerxy;
}