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

my $mw = MainWindow->new(-title => 'Test',                           );                            
my $lab1 = $mw->Label(-image => $mw->Photo(-file => 'bm1.gif')
                      );
my $lab2 = $mw->Label(-image => $mw->Photo(-file => 'ba1.gif')
                      );                   
$lab2->place(  -x => 10,
               -y => 10);
$lab1->place(  -x => 10,
               -y => 10);
MainLoop();