#!/usr/bin/perl

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

my $mw = tkinit();
my $variable;

my $hlist = $mw->HList->pack;
my $checkbutton = $hlist->Checkbutton( -text => 'Testcheckbutton', -variable => \$variable );
$hlist->add(0);
$hlist->itemCreate(0,0,-itemtype => 'window' , -widget => $checkbutton );

MainLoop;