Select Code to Download

    # Scrollable text area.
    my $scroll =
...
                          -scrollbars => 'e',
                          -width => 81, -height => 20)
            ->pack(-expand => 1, -fill => 'both');