Select Code to Download

#!/usr/local/bin/perl
#an index is passed to the insert method to insert text into the text 
+widget.
...
        $text->get('2.0','1.9');
        }
MainLoop;