If you are looking perl 5.8.8 version, then Tk::Widget of that version you 'll find the BalloonInfo sub routine. I am copy/paste -ing the code below. Even in the Balloon.pm of that version you will find BalloonInfo
sub BalloonInfo
{
my ($widget,$balloon,$X,$Y,@opt) = @_;
foreach my $opt (@opt)
{
my $info = $balloon->GetOption($opt,$widget);
return $info if defined $info;
}
}