#! perl

use Tk;

$xloc = "aaaa";

$mw = new MainWindow;
($can = $mw->Canvas)->pack;
($label = $can->Label(-width=>20,-height=>5,
				-textvariable=>\$xloc,-relief=>'solid') ) ->pack;

$mw->bind($label,'<Motion>', [ \&printXY, Ev('x'), Ev('y') ]);

MainLoop;

sub printXY{
	($m, $x1, $y1) = @_;
	$xloc = "(" . $x1 . "," . $y1 . ")";
	$m->configure(-foreground=>'red') ;
}