use strict;
use Tk::Balloon;

my $b = $toplevel_wg->Balloon(-statusbar=>$toplevel_wg);
$b->attach($toplevel_wg,
               -balloonmsg => "I am on the smaller window",
               -statusmsg => "Status bar message");
[download]