#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::HList;

my $mw    = tkinit();
my $image = $mw->Photo('img',-format => 'gif', -file => './locked.gif');
my $hlist = $mw->Scrolled('HList')->pack();

insert_hlist();

MainLoop;


sub insert_hlist{
    for my $i(0..4){
        $hlist->add($i);
        for my $j(0..5){
        my $entry = $hlist->addchild($i, -itemtype => 'imagetext', 
                                         -text     => $i . '.' . $j,
               
          -image    => $image);
        }
    }
}