use strict;
use warnings;
use Tk;

my @BITMAPS = qw(error gray25 gray50 hourglass info
                 questhead question warning);

# Das MainWindow erzeugen
my $mw = MainWindow->new();

# nun erzeugen wir ein Label pro Bitmap
foreach my $bm (@BITMAPS) 
  {
  $mw->Label(-bitmap => $bm)
	     ->pack(-side => 'left', 
	            -padx => '10');
  }

MainLoop;