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;