-command => sub {$e1->delete(0,'end');
                 $e2->delete(0,'end');
                 ...
                 $e5->delete(0,'end');
                }