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

my $mw = tkinit;
my $c  = $mw->Scrolled("Canvas", -background => "white")->pack;

$c->Tk::bind("<Button-1>", sub { print "\@_: @_\n" });

MainLoop;