Select Code to Download

use Tk;
use Tk::ROText;
...
    } 
    close($in);
}

use strict;
use warnings;
...
    print $_, "\r\n";

}