#gotta test the weird gamma stuff
use strict;
use warnings;

use Tk;
use Tk::Photo;
use Tk::PNG;

my $m = MainWindow->new;

my $canvas = $m->Canvas(-width => 32*2, -height => 32*2);
my $img = $canvas->Photo(-file => shift());
my $disp = $canvas->Photo(-width => 32*2, -height => 32*2);

$disp->copy($img, -zoom => 2);

$canvas->createImage(0,0, -anchor => "nw",  -image => $disp);

$canvas->pack;

MainLoop;

.