#!/usr/bin/perl
use Tk;
use Tk::Balloon;

my $mw = MainWindow->new;

my $canvas = $mw->Canvas()->pack(
    -expand => 1,
    -fill   => 'both',
);

my $id = $canvas->createText(
    5, 5,
    -text   => 'hello',
    -anchor => 'nw',
);
my %messages = ();
$messages{$id} = "there";

my $balloon = $canvas->Balloon();
$balloon->attach(
    $canvas,
    -balloonposition => 'mouse',
    -msg             => \%messages,
);

MainLoop();