our $image = $window->Photo('-format' => 'jpeg', '-file' => $bgimage, '-height' => $height, '-width' => $width);
our $background = $window->Label ( '-image' => $image, '-height' => $height, '-width' => $width);
$background->pack('-ipadx' => $width, '-ipady' => $height);