#!/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();