Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
#!/usr/bin/perl
use warnings;
...
```