use strict;
use warnings;
use Tk;

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

$mw -> title('Test für Bildlabel');
  
# oberen Frame erzeugen
my $top = $mw->Frame(-background => 'White')
           ->pack(-side => 'top');
 
# Bildobjekt erzeugen
$top->Photo('geiss', -file => "ziege.gif");
 
# Bildobjekt einbinden
$top->Label(-image => 'geiss')->pack();
 
# Button erzeugen
$mw->Button(-text => 'Quit', 
            -command => sub{$mw->destroy();})
            ->pack(-side => 'bottom');
 
 MainLoop();