Select Code to Download

use Tk;
use Tk::LineNumberText;
...
    $status = $t->index('current');
    print "$status\n";    
}