I think you might need a Canvas ...

$ cat image.pl
#!/usr/bin/perl -w
use strict;


use Tk;
use Tk::Canvas;
my $width       = 250;
my $height      = 250;

my $top = MainWindow->new();
my $photo = $top->Photo(-file => "me.bmp" );
my $can = $top->Canvas( -width => $width, -height=> $height )->pack();
$can->createImage(100, 100, -image => $photo );

MainLoop;
[download]