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;
}