use Tk;
use Tk::LineNumberText;

$mw = MainWindow->new;
$t = $mw->Text()->pack();
#$t = $mw->LineNumberText('Text')->pack();

$t->insert('end', "This is some\n");
$t->insert('end', "normal text\n");

$t->bind('<Button-1>' => [\&updateStatus]);

MainLoop();
    
sub updateStatus {
    $status = $t->index('current');
    print "$status\n";    
}