use Tk;

use Tk::MListbox;

use strict;
use warnings;

my $mw = new MainWindow();

my $frame = $mw->Frame(-bd => 2, -relief => 'raised')->pack(-expand => 1, -fill => 'both');

my $scrolledMListbox = $frame->Scrolled(
        qw/MListbox -selectmode browse -scrollbars oe/
        )->pack(-expand => 1, -fill => 'both');

my @list = ( "a", "b" );

$scrolledMListbox->columnInsert('end',  -text => 'Path');
$scrolledMListbox->columnInsert('end', -text => 'Modified');
$scrolledMListbox->columnInsert('end',  -text => 'Dir');
$scrolledMListbox->columnInsert('end',  -text => 'File');

$scrolledMListbox->insert('end', [ "a", "b", "s", "l"] );
$scrolledMListbox->insert('end', [ "c", "d", "f", "e"] );

MainLoop;