$text->delete("1.0", 'end');

##</code><code>##

 -command => [$right_frame => \&clear_file])->pack(-side => "bottom")

##</code><code>##

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