#!/usr/bin/perl

use strict;
use warnings;

use Tk;

my $mw = tkinit;

my $frame = $mw   ->Frame(-height => 50, )->pack(qw/ -fill both -expand 1 /);
my $text  = $frame->Text() ->pack(qw/ -fill both -expand 1 /);
my $label  = $frame->Label(-text => 'Noch ein Widget') ->pack(qw/ -fill both -expand 1 /);

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

MainLoop;