#!/usr/bin/perl

  use strict;
  use warnings;

  use Tk;
  use Tk::HList;

  use FindBin;

  my $mw = tkinit;

  my(@images) = qw(image1.xpm image2.xpm);

  my $hl = $mw->HList->pack();

  $hl->itemCreate($hl->addchild(''), 0, -itemtype => 'imagetext',
                            -image => $mw->Photo(-file => "$FindBin::Bin/images/$_" ),
                            -text => $_ )
      for @images;
  MainLoop;