my $scrolled_mlistbox = $popup_frame->Scrolled(
        qw/MListbox -selectmode browse -scrollbars oe/
        );

##</code><code>##

    my $scrolled_mlistbox = $popup_frame->Scrolled(
        qw/MListbox -selectmode browse -scrollbars e/
        );

##</code><code>##

use Tk;
use Tk::MListbox;

my $mw = MainWindow->new();
$ml=$mw->Scrolled("MListbox", -scrollbars=>"oe", -columns=>[[-text=>'Heading1', -sortable=>0], [-text=>'Heading2']])->pack();

MainLoop;