#!/usr/bin/perl
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 => "\nPath\n");
$scrolledMListbox->columnInsert('end', -text => "\nModified\n");
$scrolledMListbox->columnInsert('end',  -text => "\nDir\n");
$scrolledMListbox->columnInsert('end',  -text => "\nFile\n");

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

MainLoop;