#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::MListbox;

my $mw = MainWindow->new();
$mw->geometry("900x500");

my $frame = $mw->Frame()->pack( -side=>'top', -fill=>'both', -expand=>1);

my $mlb = $frame->MListbox()->pack(-side=>'top', -fill=>'both', -expand=>1);

$mlb->columnInsert(0, -text=>'count');
$mlb->columnInsert(1, -text=>'date');
$mlb->columnInsert(2, -text=>'size')->pack(-expand => 1);

MainLoop;