##
-command => [$right_frame => \&clear_file])->pack(-side => "bottom")
####
my $Close_help = $left_frame->Button(-text => ' Close Help ',
-command => \&clear_file )->pack(-side => "bottom");
sub clear_file {
$right_frame->delete('1.0','end');
$right_frame->packForget;
}