#!/usr/bin/perl
use Tk;

my $mw = MainWindow->new();
$mw->geometry("600x400+50+50");

$canvas = $mw->Canvas(width => 600, height => 400)->pack();
$canvas->Tk::bind("<Button-1>", [ \&print_xy, Ev('x'), Ev('y') ]);

sub print_xy {
  print "@_\n";
  my ($canv, $x, $y) = @_;
  print '(x,y) = ', $canv->canvasx($x), ', ', $canv->canvasy($y),"\n" ;
 
}

MainLoop;