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

our $mw;
my ($g2list, $e);

$mw = MainWindow -> new;
$g2list = $mw -> HList (browsecmd => \&check_uitgever, -columns => 1) -> pack;
$e = $g2list -> addchild ('');
$g2list -> itemCreate ($e, 0, -text => 'Text 1');
MainLoop;
exit;

#==================================================
#
# Subroutines
#

sub check_uitgever {

   my $uglist = $mw -> Hlist (-columns => 1) -> pack;

}