Select Code to Download

    $mw_text->add('Label', -text => $label_str)->pack;

foreach $text_item (@$ref_text_array) {
    chomp($text_item);
    $text_str .= $text_item . "\n";
}

    $mw_text->add('Text',
            -scrollbars => "e",
...
            -height => 35,
            -text   => $text_str
            )->pack();