# while (<FH>) { $right_frame->insert("end", $_); }
 # should be something like this
while (<FH>) { $right_frame->insert("end", $_, $tag); }