Select Code to Download

use strict;
use Tk::Balloon;
...
$b->attach($toplevel_wg,
               -balloonmsg => "I am on the smaller window",
               -statusmsg => "Status bar message");