#!/usr/bin/perl

use Tk;

my $mw = MainWindow->new;
my $txt = $mw->Scrolled('Text')->pack(-side => 'top');

$mw->bind('<Button-3>', sub { print "main control 3 \n" });


MainLoop;