#!/usr/bin/perl

use strict;
use warnings;

use Tk;

my $mw = tkinit;

my $frame = $mw   ->Frame()->pack(qw/ -fill both -expand 1 /);
my $text  = $frame->Text() ->pack(qw/ -fill both -expand 1 /);

$frame->bind( '<Motion>' => sub { print "Frame-Motion\n" } );

MainLoop;