use Tk;

my $main = MainWindow->new;

$canvas = $main->Canvas('-width' => 330,
    -height => 90); 

$main->Photo('image1', 
    -file => 'image.gif');

$canvas->createImage(0, 0, 
    -anchor => 'nw',
    -image => image1);

$canvas->pack;

MainLoop;