#!/usr/bin/perl

use Tk;

dbmopen %myhash, "myhash", 0666;
my $main = MainWindow->new();
my $image = $main->Photo("button", -data => $myhash{image}, -format => 'gif');
my $label= $main->Label(-image => "button");
$label->grid(-in => $main);
dbmclose %myhash;

MainLoop;