Select Code to Download

$text->delete($start_index,$end_index);
$text->insert($start_index,$my_new_text);

use strict; 
use Tk;
...
    $text->insert($start_index,$old_data);
    return;
}