Select Code to Download

use strict;
...
MainLoop;

my $len;

...
                                }
                             }
);

$text->bind('<<Modified>>', sub{
                                if ($len ne $text->Contents ){
...
                                }
                             }
);