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