my $scrolled_listbox = $popup_frame->Scrolled(
        qw/Listbox -selectmode browse -scrollbars oe -exportselection 0/
        );

##</code><code>##

my $scrolled_listbox = $popup_frame->Scrolled(
        qw/Listbox -selectmode browse -scrollbars e -exportselection 0/
        );

##</code><code>##

$scrolled_listbox->configure(-scrollbars => 'oe');

##</code><code>##

$scrolled_listbox->configure(-scrollbars => 'e');