#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Text;
use Tk::Balloon;

my $mw = tkinit();
my $text = $mw->Text->pack;
$text->insert('end', "This is a red text\n");
$text->tagAdd('red_text', '1.10', '1.13');
$text->insert('end', "This is a black text\n");
$text->tagConfigure('red_text', -foreground => 'red');

my $balloon  = $text->Balloon();
$text->tagBind('red_text', '<Enter>', sub {
                   $balloon->attach($text , -balloonmsg      => 'hello',
                                            -initwait        => 10,
                                            -balloonposition => 'mouse');
                   });
$text->tagBind('red_text', '<Leave>', sub { $balloon->detach($text) });

$mw->MainLoop();


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,