use Tk;
use Tk::Balloon;
use Tk::Canvas;

$mw = MainWindow->new;

$c=$mw ->Scrolled("Canvas", -cursor => "crosshair")->pack(
-side=> "left", -fill => 'both', -expand =>1);

$text = $c->createText(50,50, -fill=>'blue', -text=>"test");

#$button = $mw->createText(-text => "Exit", -command =>sub {exit})->pack;


$msgarea =$c->Label(-borderwidth => 2, -relief => 'groove')
->pack(-side => 'bottom', fill => 'x');
$balloon = $c->Balloon(-statusbar =>$msgarea);
$balloon->attach($text, -balloonmsg => "hi",
-statusmsg => "hi");
MainLoop;