-command => [$right_frame => \&clear_file])
#notice the difference
-command => \&clear_file )