shell bypass 403
use strict;
package Tk::ReindexedText;
use vars qw($VERSION);
$VERSION = '4.004'; # $Id: //depot/Tkutf8/TextList/ReindexedText.pm#4 $
use Tk::Reindex qw(Tk::Text);
use base qw(Tk::Reindex Tk::Text);
Construct Tk::Widget 'ReindexedText';
1;