Select Code to Download

#!/usr/bin/perl
use warnings;
...
sub recon{
    $buttons[$_]->configure(-text => 'Button '. ($_ + 10)) for 0..$#bu
+ttons;
}