use strict;
use warnings;
use Tk;
my $mw =tkinit;
my $c = $mw->Canvas->pack(-fill   => 'both',
                          -expand => 1);
$c->Tk::bind('<Motion>',[\&print_coords,Ev('x'),Ev('y')]);
MainLoop;
use Data::Dumper;
sub print_coords{
    shift;
    print Dumper \@_;
}