use strict;
use Tk;              
use Tk::Compound;


my $mw = MainWindow->new;
my $mylabel  = $mw->Label()->pack;

my $i  = $mylabel->Compound;
$i->Line;
$i->Text(-text => 'Line  ');
$i->Bitmap(-bitmap => 'warning');

$mylabel->configure(-image => $i);

MainLoop;