Select Code to Download

#The Open button:
...
# The Scrolled windows:

$te = $mw->Scrolled( q/TextUndo/, -scrollbars => 'se', -background....
+.......);

# The get_statistic.pl script:

...
foreach (sort {$a <=> $b} keys %distrib) {
    print "$_\t$distrib{$_}\n";
}