Help for this page
use Tk; use Tk::ROText; ... } close($in); }
use strict; use warnings; ... print $_, "\r\n"; }