#!/usr/bin/perl -w
use Tk;
use strict;
use warnings;
use Tk::JPEG;
use Tk::PNG;

my $mw = MainWindow->new;
$mw->geometry("400x400");
if ( -e "2bgimg.png") { #if bgimage graphic exists , use it
        $mw->update();
        my $canvas1 = $mw->Canvas->pack(-expand=>1,-fill=>'both');
        my $bg_img = $mw -> Photo(-file=>'2bgimg.png');
$canvas1->createImage(0,0,
                  -image => $bg_img,
          -anchor => 'nw',
          -tags => ['img'],
           );
}
MainLoop;