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

my $file = shift || die "need a bmp, gif,jpg or png as arg 1\n";

my $mw=tkinit;

my $canvas = $mw->Scrolled('Canvas')->pack(-expand=>1, -fill=>'both');

my $img = $mw->Photo( -file => $file );

$canvas->createImage(0,0,  
                  -image => $img, 
		  -anchor => 'nw',
		  -tags => ['img'],
		   );

bunchOfBoxes();
sometext();

MainLoop;

sub bunchOfBoxes{
  for(0..5){
    my $window = $canvas->Checkbutton(-text=> $_);
    $canvas->createWindow(10, 10+ $_ * 20,
          -window=> $window);
     }
 }
	     
sub sometext{

   $canvas->createText(
               50  , 50, 
               -text  => 'foobar',
               -anchor => 'center',
	       -fill => 'hotpink',
           );

}