#!/usr/bin/perl
  use strict;
  use warnings;
 use Tk;

  my $mw = MainWindow->new();

  $mw->HList(-height => 100)->pack;

  MainLoop;

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::HList;

my $mw = tkinit();

$mw->Label(-bg => 'red',-text => 'bla', -height => 50,)->grid(-row => 0, -column => 0);
$mw->HList(-height => 1)->grid(-row => 0, -column => 1, -sticky => 'ns',);

$mw->MainLoop();