use Tk;
use Tk::MListbox;

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

MainLoop;